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IDENTIFICATION 

PRODUCT CODE: nfilNDEC-ll-DZCNB-B-O 

PRODUCT NAf€: CNllF DIAGNOSTIC TEST WITH 'HE 

DOCUriRTION On-200 CARD READER <80 COLUHN) 

DATE CREATED: NOVEHBER 1,1974 

NAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHORS: RICK FADOEN 

RAYNOrC SHOOP 



COPYRIGHT 1973,1974 DIGITAL EOUlPflENT CORP., NAYNARD, NASS. 

J\£ INFORHATION IN THIS STATEHQIT IS SUBJECT TO CHANGE 
UITHOUT NOTICE ATC SHOULD NOT K CONSTRUED AS A 
COfHITfCNT BY DIGITAL EOUIPHENT CORPORATION. 

ACTUAL DISTRIBUTION OF THE SOFTWARE DESCRIBED IN THIS 
DXUrCNT HILL BE SUBJECT TO TERNS AND CONDITIONS TO 
BE AfffCUNCEO IN SOTC FUTURE DATE BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RE.SPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EOUIPHEnT WHICH IS NOT 
SUPPLIED BY DEC. 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE 
TO USE ON A SINGLE COMPUTER SYSTEM AND CAN K COPIED (WITH 
INCLUSION OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BY PROVIDED IN WRITING 

Br DEC. 
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2. 
2.1 



?.2 



ABSTRACT 

THIS TEST IS TO BE USED AS A CARD READER DIAGNOSTIC FOR THE 




READER TO BE CHECKED. 
TESTS SPECIAL DECKS UHICH HAVE ALL 
- HARKED IDENTICALLY, TO AID IN 



ANOTHER STARTING ADDRESS 
COLUNNS Arc CARDS PUNCHED OR 
DIAGNOSING SPECIAL PROBLENS 

REQUIRENENTS 

EQUIPNENT 

POP-U STANDARD COfPUTER 
CH''11F CMV CONTROLLER 

CH-11FA,FB CARD READER DOCUHATION HOOEL ON-200 <B0 COLUHN> 



TEST DECKS 

NAINDEC-OO-DZCHA-A-CA 
fttirCEC-OO-DZCNA-A-CB 
NAINDEC-OO-DZCHB-A-CO 



PUNCHED ALPHANUNERIC TEST DECK 
PUNCHED BINARY TEST DECK 
NARKSENSE BINARY TEST DECK 



SPARE CARDS FOR THE ERROR FUNCTION TEST 
STORAGE 

THE ROUTINE USES HEHORY 0 TO IbOOO. 
LOADING PROCEDURE 

PROCEDURE FOR NORNAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 
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STARTING PROCEDURE 

HA CONTROL SWITCH SETTINGS 

BASIC SUITCH REGISTER SETTINGS ARE: 

SU15=1 OR UP — HALT ON ERROR 
SWlHrl OR UP — SCOPE LOOP 
Skl3=l OR UP — INHIBIT PRINT OUT 
SU12=1 OR UP — INHIBIT TRACE TRAPPING 
SWn=l OR UP — INHIBIT Slfi-PROGRAII ITERATION 

(NOTE THAT IF SMll IS SET. THE CA-^O COUNT 

UIU K ALTERED. CAUSING FAILURES IN THE 

DATA TEST ^CTi6n. ) 
5UQ7=1 OR UP — LOOP THRU THE INSTROCTION TEST PORTION 

(NOTE THAT THE PROSWH HAY HANG LEGITIMATELY 

UHEN T« !NPUT HOPPER GOFS EMPTY IF SW7 IS SET) 
S«06=l OR UP — RETURN TO THE BEGINNING JF THE INSTRUCTION TEST 

WHEN CONTINUING FTOM ONE DECK TO ANOTHER 
SW05=1 OR UP — HALT BETUEEN TEST DECKS 

(SEE 5.2.1 FOR EXPLANATION OT SW5=0) 
5W04=1 OR UP — RUN THE PUNCtCDJINARY TEST DEcK (UNLESS SU03 IS SET) 
S«03=l OR UP — RUN THE hJwk^NSE BINARY TEST DECK 

4.2 STARTING ADDRESSES 

2(30 = INSTRUCTION ATO DATA TEST 

21D = PICK SUBTEST LOOP 

220 = ERROR FUNCTION TEST 

240 = SINGLE SUBTEST LOOP 

250 = READ SINGLE DATA PATTERN TEST 
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4.3 PRO(m\ flrC/QR OPERftTOR ftCTION 

4.3.1 INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 
LOAD PROGRAH INTO NENORY. 

LOAD OfC TEST DECK IN THE CARD READER INPUT HOPPER. 
PRESS F«SET ON THE CARD READER. HAIT FOR RESE^ LlQHl. 
SET SWITCH REGISTER TO STARTINd ADDRESS. 
LOAD ADDRESS. 

SET SUITCHES (SEE H.i)— ALL DOUN FOR WORST CASE, ALPHA TEST DECK. 
PRESS START. 

UHEN THE INPUT HOPPER IS ENPTY THE PROGRAH HILL HANG UAITING 

FOR AN INTEFAUPT FRON T« CARD READER. LOAD ONE OR nORE 
TEST DECKS INTO THE INPUT HOPPER. PRESSING "RESET- 
ON THE CARD READER SHOULD CAUSE PROGRAN EXECUTION 
TO RESUME. 

THIS ENTIRE SEQUENCE IS NECESSARY TO RUN Jt€ FULL TEST ON THE CARD 
Rr«ER. 

4.3.2 PICK SUBTEST LOOP (SA 210) 

LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER. 
PRESS -RESEr ON THE CARD READER, UAIT FOR THE RESET LIGHT. 
LOAD THE STARTING ADDRESS. 
PRESS STMT 

AT T« HALT - LOAD SWITCH REGISTER WITH NOTION DELAY SIZE. 

4.3.3 ERROR FUNCTION TEST (SA 220) 

LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER 

PRESS -RESEr ON THE CARD READER. WAIT FOR RESET LIGHT. 

LOAD THE STARTING <«DRESS, THEN §ET THE DESIRED SWITCH OPTION'i. 

PRESS START. 

FOaOU THE INSTRUCTI0^6 AS THEY ARE PRINTED OUT. 

^.3.4 SINGLE SUBTEST LOOP (SA 2H0) 

LOAD CARDS (SPARE CARDS OR fi TEST DECK) INTO THE INPUT HOPPER. 
PRESS -RESET- ON T« CARD READER, WAIT FOR RESET LIGHT. 
LOAD T« STARTING ADDRESS. 
PRESS START. 

AT THE 1ST HALT. LOAD THE STARTING ADDRESS OF THE DESIRED TEST 
(ADDRES§ OF THE SCOPE INSTRUCTION AT THE F^GINNING OF 
THE TEST.) 

PRESS CONTINUE. 

AT THE 2ND HALT SET THE SWITCH REGISTER OPTIONS (BIT il riUST=0). 
PRESS CONTINUE. 
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4.3.5 SINGLE OPTA PPTTEim TEST (SA 2S0) 

A SPECIAL DECK (1 OR MORE CARDS) flUST BE PUNCHED OR NARKED TO RUN 

LOAD THIS PREPARED DECK INTO THE INPUT HOPPER. 
PRESS CflPJ) READER "RESET", UAIT FOR RESET LIGHT. 
LOAD SA 250. 
PRESS START 

AT nz INITIAL HALT SET THE CARD IMAGE OF THE DATA PATTERN USED 
IN SHU-3U00. 

SIn^TH^CA^REAOER RUNS OUT OF CARDS IT UILL RING THE BEL^. 
RELOADING T« DECK AND PRESSING "RESET" ON 

THE CARD READER UILL CONTINUE THE TEST. 

5. OPERATING PROCEDURE 

F.l OPERATIONAL SWITCH SETTINGS 

5.1.1 AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST) 
SEE 4.1 

5.1.2 AT SA 210 (PICK SUBTEST LOOP) 

AT THE HALT - LOAD THE DELAY BETUEEN CARD 
MOTION IN THE SUITCH REGISTER. 

5.1.3 AT SA 220 (ERROR FUNCTION TEST FOR CNllF) 

SW14=1 TO LOOP THRU THE CURRENT SUBTEST 
SU15=1 TO HALT ON ERROR 

5.1.4 AT SA 240 (SINGLE SUBTEST LOOP) 

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST 
2N0 HALT - SET SR OPTIONS (BIT 11 «UST=0) 
SEE 4.1 FOR SR OPTIONS 

NOTE THAT T-BIT IS NOT SET UHEN USING THIS STARTING POINT. 
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5.1.5 AT Sfl 250 (SINGLE DATA PATTERN u 'T) 

AT THE HALT-LOAD THE CARD-IMAGE OF THE DATA PATTERN IN SUll-SUOO. 

5.2 SUBROUTINE ABSTRACTS 

5.2.1 BEGIN SA 200 

T« INSTRUCTION TESTS ARE RUN FIRST. FOLLOtCD BY THE DATA 
RELIABILITY TESTS ON THE REMAINING 6aRDS IN THE FIRST TEST DECK. 
AT tic END OF THE DECK THE BaL HIU RING. AND IF SH5=1 THE 
PROGRAM HALTS. IF SU5=0. PROGRAM ACTION 6ePEN0S ON THE NUMBER 
OF TEST DECKS LOADED. iP T»€RE ARE STILL CARDS IN THE If#>UT HOPPEP, 
THE PROGRAM UIU RUN THE DATA RELIABILITY TEST ON THE ENTIRE DECK. 
IF T« imn HOPPER IS EMPTY AT T« EfOOF A DECK. THE PROGRAM 
Uia RUN A SET OF TESTS OF OFF-LINE OftRATIONS. At THE END OF 
THESE TESTS. IT WAITS FOR THE CARD READER TO BE PUT BACK ON-LINE 
FURTJCR CHE6kS ARE HADE OF THE CFF-LlfC TO ON-LINE OPERATIONS, 



IF SH5=1, HITTING CONTINUE Uia RESUME PROGRAM OPERATION AFTER 
THE halt! if all OTHER SWITCHES HERE DOWN, FOR EXAMPLE, THE 
DATA RELIABILITY TEST WOULD TJCN BE RUN ON THE NEXT DECl!:. THE 
OTfCR SWITCJCS AFFECT PROGRAM FLOW AS NOTED IN M.l. 

5.2.2 SCOPE 

THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE 
INSTRUCTION SECTION. IT RECORDS THE STARTING ADDRESS OF EACH 
SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS REQUESTED, 
IT WILL JUMP TO THE START THE SUBTEST THAT THE SCOPE LOOP 
IS REQUESTED FOR. IF SCOPE LOOP IS NOT REQUESTED. THERE UILL 
BE 1 ITERATION ON THAT SUBTEST BEFORE THE fCXT SuStEST 
IS ENTERED. SWITCH U ON A 1 INHIBITS ITERATION OF SUBTESTS. 

5.2.3 HLT 

THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME 
OF FAILURE. AND THE CONTENTS OF THE PROCESSOR STATUS REGISTER. 
NOTE THAT tHE LOCATION COUNTER WILL BE THE ADDRESS OF THE 
HLT PLUS TWO. 
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5.2.4 TTRftP 



THIS ROUTINE ALLOWS THE TRACE 8IT TO BE SET AFTER THE FIRST 

LOOP OF THE PROGRAM. THE TRACE BIT WILL BE SET ON ALTERNATE 

LOOPS OF THE INSTRUCTION AMD DATA TEST UNLESS SU12 IS SET. 

THE FIRST INSTRUCTION EXECUTED UPON TR<iPPING IS AN "RTI" COR "RTT-) WHICH 

RETURNS TO THE INTERRUPTED SEQUENCE. THIS CONTINUES UNTIL THE 

END OF THE PROGRAN LOOP IS REACHED. 

5.2.5 TRAPCATCHER 

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 
DESIG^CD TO DETECT AND ISOLATE UNEXPECTED TRAPS AND 
INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF NENORY. 

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE 
NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A HALT (COOOOG). 
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT Al THE TRAP 
LOCATION PLUS TUG. 

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA. EXAMINE REGISTER 
SIX. IT WILL CONTAIN THE CURRENT STACK ADORES^. THE CONTENTS 
OF THE CURRENT STACK ADDRESS IS THE VALUE OF THE LOCATION 
COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 

S.2.b ERCNll (ERROR FUNCTION TEST) 

THIS TEST CHECKS OPERATION OF THE VARIOUS ERROR SENSING FEATURES 

OF THE DOCUflATION 0H-200 CARD READER. CARD READER OFF-LINE. INPUT 

HOPPER EMPTY, OUTPUT STACKER FULL, FEED ERROR AND MOTION ERftOR ARE CHECKED. 

5.2.7 TESTX (SINGLE TEST LOOP) 

THIS ROUTINE ALLOWS A SINGLE SUBTEST TO BE RUN CONTINUOUSLY FOR 
SCOPE LOOP PURPOSES. WHILE A SCOPE LOOP SWITCH OPTION EXISTS, 
IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH YOU WISH TO 
LOOP. IN SOME CASES (SUCH AS WITH INTERMIHENT FAILURES) THAT'S 
NOT EASY TO DO. THIS SUBROUTINE ALLOWS YOU TO LOAD THE ADDRESS 
OF ANY TEST FROM TESTO THRU TEST2M AND TESTA THRU TESTG AT THE 
HALT AND THEN GO DIRECTLY TO THAT TEST. 

5.2.8 CKSAME (SINGLE DATA PATTERN TEST) 

THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT 
DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER ADJUSTMENTS. 
IT CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED OR HARKED 
IDENTICALLY (WO ALL CARDS MUST BE IDENTICAL), CHECKING THE 
DATA AGAINST A PATTERN SET UP ON THE SWITCHES INITIALLY. ANY 
ERRORS ARE PRINTED OUT. ALONG WITH A COUNT OF THE TOTAL NUMBER 
OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS WHICH HAVE 
OCCURRED SINCE THE TEST WAS STARTED. 
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5.2.8 DELAY (PICK SUBTEST LOOP) 

THIS TEST IS OESIGNEO TO AID IN THE DIAGNOSIS OF 
DIFFICULT DICK PRQ6LENS AND FACILITATE REPAIR. 




REGISTER VALUE. NIETHER DATA OR STATUS REGISTER 
ARE CHECKED FOR ERRORS. THE PRQGRAN UILL 
CONTrrtiALLY LOOP UnflL STOPPED BY THE OPERATOR 

5.3 PROGRAH AND/OR OPERATOR ACTION 



5.3.1 LOADING AM) STARTING AT 200 UITH ALL SWITCHES DOUN IS U0R5T 

£«§5 JESTING. A SINGLE ALPHANUMERIC DECK SHOULD BE RUN. THIS 
EXECUTES AN iNSTRUCTION TEST FOLot£D^Y A DATA RELIABILITY TEST. 
AT THE END OF THE DECK CHECKS ARE MADE OF THE FLAG SETTINGS UHICH 
SHOULD BE AFFECTED. ATC THE PROGRAM UAITS FOR AN INTERRUPT FROM 
THE READER COMING WCK ON-LINE. AT T« END OF THE FIRST DECK THE 

^vm.''^s}it ^'m^A 

PROPERLY. THE BELL Hia RING ONCE »CN "RESET" IS PRESSED AND THE 
ENTIRE DtCK WILL BE RUN THRU THE DPTh KtllPBILITY PORTION OF T« TEST. 
IF- AFTER READING 60 CARDS. THE imH HOFPER iS NOT EMPTY. THE PROGRAM 
UILL CONTINUE TO THE fCXT &ECK. SUITCH OPTIONS MAY BE US^D TO ALTER 
THIS FLOW AS NOTED IN SECTIOK M.l. 

S.3.£ TO GO DIRECTLY TO A SINGLf SUBTEST AMD RUN IT CONTINUOUSLY, USE 

SA 240. AT THE FIRST HALT. SET T« SWITCH REGISTER TO THE STARTING 
ADDRESS OF T»C DESIRED 9JBtEST (I.E. THE ADDRESS OF THE SCOPE IN- 
STRUCTION AT THE START T»C TEST). AND CONTINUE. AT THE SECOND HALT, 
SET THE DESIRED SWITCH feoISTER OPTtONS AND CONTINUE (SWll Hl'ST BE = 
THE PROGRAM UILL CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST UNTIL 
SWll IS SET OR THE PROCESSOR IS HALTED. 
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b. 

b.l.l 



b.2 



ERRORS 

STANDARD PRINTOUT 

PRINTOUTS ARE IN A TWO-WORD FORMAT 



THE FIRST IS THE PC+2 OF 
THE DETECTED ERROR. THE SECOND IS THE CONTENTS OF THE PROCESSOR 
STATUS REGISTER W€ti THE ERROR WAS DETECTED. 



bA.t DATA ERROR PRINTOUT 

THE HEADING IS PRINTED OUT ONCE PER TEST DECK. 
THE FOLLOWING SIGNIFICANCE: 

DECK 



THE COLU^INS HAVE 



-EITHU) PUNCHED ALPHANUMERIC , PUNC»€D BINARY. OR 
NARKSENSE BINARY DECK, XPEhOING ON SWITCHED 3 AND 4 
CARD -THE CARD NUMBER WHERE TH| FAILURE OCCURRED <DEC.> ^ 

pa't'/ern -Itl SHSct^^BS^imaS^datS thJ't^wouS hav? b?In"read 

READl -THE CARD IMAGE DATA IS READ TWICE. THIS IS WHAT WAS 

READ THE FIRST TIME FROM CR81 
READ2 -THIS IS WHAT WAS IN CRBl AFTER A BRIEF TIMING LOOP. IT 
E THE SAME AS T>€ PREVIOUS READING. 
WHAT TKC DATA SHOULD JEjfN ENCODED FORM 
WHAT WfS KfiD BY AOORESSING THE ENCODED BUFFER 



CODED 
READ 




DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE: 

A. SW03 AND SWOH NOT SET TO TYPE OF DECK USED 

B. CARD MISSING 

C. DAMAGED CARD 

b.i.3 SINaE DATA PATTERN PRINTOUT 

THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING WITH EACH 
ERROR PRINTOUT. THE COLUMNS HAVE T»C FOLLOWING SIGNIFICANCE: 



COLUMN 
READl 
READ2 
CARDS 



-THE COLUMN NUfiER WHERE THE FAILURE OCCURRED. 
-DATA IS READ TWICE. THIS IS THE FIRST READING. 
-THIS IS WHAT WAS READ THE SECOND TIME. 
-THE TOTAL NUHKR WCARDS (IN OCTAL) tHAT HAVE BEEN RUN 
SINCE TfC TEST IWS STARTED 
ERRORS -THE TOTAL NUMBER OF ERRORS 'DETECTED (IN OCTAL) SINCE 
THE TEST WAS STARTED. 



t'RROR RECOVERY 

IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND 
CONTINUE. IF THE "HALT ON ERROR" SWITCH IS SET, HITTING 
CONTINUE WILL RECOVER. IF THE PROGRAM HANGS UP IN A LOOP, THE 
ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED. IF 
A HALT OCCURS IN THE TRAP AND VECTOR AREA THE PROGRAM MUST BE 
RESTARTED. IF THE PROGRAM HALTS IN THE MAIN FLOW, CONSULT THE 
LISTING IF NO MESSAGE IS TYPED OUT. 
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b.3 ERRORS INVOLVING BIT 6 OF THE CSH 

THE CNll HAS A DELAY UHICH OCCASSIONALLY UILL CAUSE AN ERROR 
PRINTOUT REFERRING TO BIT B TO OCCUR. SWIETIMES ON-LINE 
TRANSITION MILL SET BEFORE OFF-LINE tLEAlfe. ALSO, THE OFF-LINE 
BIT UILL NOT SET INNEOIATELY WHEN AN ERROR OCCURS UHICH PUTS THE 
READER OFF-LINE. 

7. RESTRICTIONS 

7.1 STARTING PROCEDURE 
NONE 

7.2 OPERATIONAL RESTRICTIONS 

7.2.1 CONBINED INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 

IF A STANDARD TEST DECK IS NOT BEING USED. SW7 MUST BE SET 
TO INHIBIT RUNNING THE DATA RELIABILITY p6RTI0N OF THE TEST. 
THE PROCESSOR HAY HANG UHEN THE INPUT HOPPER GOES EMPTY, AND 
THIS IS NOT TO BE REGARDED AS A FAILURE. 

UHEN USING THE STANDARD TEST DECKS, THEY MUST BE IN 
GOOD CONDITION. IT IS A GOOD IDEA TO LABEL THE CARDS 
DECKS AS SOON AS THE DECK IS RECEIVED. 

7.2.2 PICK SUBTEST LOOP (SA 210) 

THE PICK SUBTEST LOOP REQUIRES SPARE CARDS 
OR TEST DECKS. THE TEST UiLL INITILIZE 
CARD NOTION AT A RATE DETERItCD BY THE 
SUITCH REGISTER. 

7.2.3 ERROR FUNCTION TEST (SA 220) 

THE ERROR FUNCTION TEST REQUIRES SPARE CARDS. 

THE TEST UILL TYPE OUT A REQUEST FOR THE CARDS UHEN 

THEY ARE NEEDED. 

7.2.H SINGLE DATA PATTERN TEST (SA 250) 

A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREPARED. ALL COLUMNS 
OF ALL CARDS ARE PUNCHED OR MARKED IDENTICALLY, USING A DATA 
PATTERN UHICH UILL TEST THE PROBLEM BEING DIAGNOSED. 
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8. MISCELLflrCOUS 

8.1 EXECUTION TlflE 
NGf f¥»PLlCflBLE 

8.2 CPRO DECK DESCRIPTION 

8.2.1 PUNCHED ALPHANUMERIC 

REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG ALPCD 
IN THE LISTING FOR THE COOES PUNCHED FOR EACH OF BO COLUMNS 
ON THE CARD). THE FIRST VALUE GIVEN FOR A COLUMN IS THE CARD 
IMAGE OF THAT COLUMN, UHILE THE SECOND VALUE IS THE ENCODED FORM 
OF T« SAME PATTERN. EACH SUCCESSIVE CARD IN THE DECK 
USES THE SAME SEQUENCE OF COOES. 

8.2.2 PUNCHED BINARY 

REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD IN 
THE LISTING FOR THE CODES PUNCHEITFOR EACH OF THE 80 COLUMNS OF 
THE CARD. AS WITH THE ALPHANUMERIC DECK EACH SUCCESSIVE 
CARD HAS THE SAME SEQUENCE OF COOES. 

8.2.3 MARKSENSE BINARY DECK 

REFERENCE THE MARKSENSE DATA TABLE BEGINNING AT THE TAG MRKCO 
IN T»C LISTING FOR THE CODES PRINTErFOR EACH OF THE 80 COLUMS 
ON THE CARD. THEY ARE PRINTED JWTHER THAN PUNCHED. 
AS UITH THE ALPHA AND BINARY DECKS EACH SUCCESSIVE CARD 
HAS THE SAME SEQUENCE OF COOES. 

8.3 SPECIAL NOTES 

IF THE CARD READER GOES OFF-LINE BEFORE THE END OF A CARD. 
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READEft. 

"CARD DONE" FROM THE LAST CARD IN THE INPUT HOPPER MILL OCCUR 
BEFORE THE CARD RE^ttER GOES OFF-LINE DUE TO "INPUT HOPPER EMPTY." 

CLEARING BIT 0 OF THE CRS AFTER SETTING IT CAN CAUSE THE READER 
TO NOT READ A CARD IF IT IS DONE RAPIDLY ENOUGH. 

8.4 TESTING CMllF'S UITH NON-STANDARD ADDRESSES 

BY SUBSTITUTING INTO THE LOCATIONS KCRS. KCRBl. AND CRB2 
THE ADDRESSES OF THE CRS. CRBi. AND CRBS OF A 6aRD READER ASSIGNED 
A NON-STANDARD ADDRESS. AND SUBSTITUTING ITS INTERRUPT VECTOR 
ADDRESS INTO INTVC, A 6m11 HAY BE TESTED AT ANY ADDRESS ASSIGNED 
TO IT. 
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<3. PROGRAM DESCRIPTION 

THIS SILOF TESTS IS_DEi|GrCO_TO_Cl«C!<.ftU .OPERATIONS JF THE CM! 1 



CARD READER, HITH THE NECESSARY EXCEPTION THAT TINING IN MOST 
CASES IS ONLY PARTIALLY TESTED. A SPECIAL TEST IS INCLUDED TO 
CHECK OUT THE EfWQR FUNCTIONS OF THE DOCUMATIOH OM-200 READER. WHICH 
PRINTS OUT DIRECTIONS AS IT GOES ALONG. A TEST IS ALSO INCLU6eD 
TO ISOLATE DIFFICULT DATA ERRORS USING A SPECIAL TEST DECK 
MADE UP BY THE USER. A TEST IS ALSO INCLUDED TO ISOLATE 

DIFFICULT PICK ERRORS USING ANY 



TEST DECK. IN THIS TEST THE SWITCH 
REGISTER IS USED AS A DELAY CONSTANT 
FOR INITILIZING CARD MOTION. NO DATA IS 
CHECKED IN THE THIS TEST. 



10. LISTING 

SEE rOLLOUING PAGES. 

11. FLOWCHART 

NOT APPLICABLE. 
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.LIST SEQ.BIN 

'title MD-ll-DZCMB-B CMllF OOCaMftTION <80 COLUMN) CARD READER 
jCOPYRfGHT 1973,1974 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 

SR= 177570 
PSR-1 7777b 
N0P=240 
HLT=EHT 
SCOPE=TRAP 
RTT=b 
ADINTrXO 
COUNT=;'.l 
R2='/.2 
CRS=y.3 
CRB1=^4 
R5=« 
SP='/.b 
PC=X7 



CONTAINS ADDRESS OF INTERRUPT VECTOR 
USED FOR TIMING, ETC. 
SCRATCH 

CONTAINS ADDRESS OF CARD READ STATUS^REGISTER 
CONTAINS ADDRESS OF CARD READER BUFFER (12 BIT DATA) 
SCRATCH 
STACK POINTER 
PROGRAM COUNTER 



•LOAD TRAP CATCHER INTO LOCATIONS 0 THRU 377 
LOAD TRAP VECTORS FOR HLT AND SCOPE ROUTINES 
.=14 
TRTRAP 
340 
.=30 
PRINT 
340 

SCOPtC 
340 
.=4b 
LOGICAL 



001000 
000740 
OOIOPO 
011054 
001000 
007244 

001000 
010344 

001000 
01041b 



;LOAD STARTING 
.=200 
MOV 
JMP 
MOV 
JMP 
MOV 
JMP 
.=240 
MOV 
JMP 

MOV 
JMP 



ADDRESS AREA 

•STACK, SP 
BEGIN 
•STACK, SP 
DELAY 
•STACK, SP 
ERCMll 

•STACK, SP 
TESTX 

•STACK, SP 
CKSAME 



NORMAL STARTING ADDRESS FOR DOCUMATION OM-200 READER 
PICK DELAY TEST 

STARTING ADDRESS FOR CMllF ERROR FUNCTION TEST 

: STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS 
;ANY SINaE SUBTEST 

; STARTING ADDRESS OF TEST TO READ A SINGLE DATA 
I PATTERN CONTINUOUSLY 



;LOAD POINTERS 
.=1000 

STACK: 0 

.=.+10 

INTFLG: 0 

INTVC: 230 



AND GENERAL STORAGE 



: STACK POINTER INITIALIZED TO POINT HERE 

i Wns°[e§M5SV?Sri^t is FO«e «T 

; ADDRESS OF CARD READER INTERRUPT VECTOR 



B02 



il-DZZm-B cm if DOCUMftllON <80 column) CftRO READER 



riACYll 27(732 ) 08-SEP-7fa 09:02 PAGE IH 



577 

578 

57S 

580 

581 

582 

583 

58S 

585 

586 

587 

588 

589 

5% 

591 

592 

593 

594 

595 

5% 

597 

596 

599 

bOO 

^ 

bOH 
b05 
bOb 
b07 
b08 
b09 
810 
811 
812 
813 
814 
815 
818 
817 
818 
819 
820 
821 
822 
823 
824 
82S 
828 
827 
828 
829 
830 
bjl 
t52 



GC1018 
001020 
001022 
001024 
001028 
001030 

88i^ 

001038 
001040 



001042 
001050 
001054 

oolObo 

001084 
001070 
001074 
001102 
00110b 
OOIUO 

SiiM 

001122 
001130 
001132 
001140 
0011% 
001150 

0011b2 
OOUbb 
0Q1172 
001174 
0012^ 
001204 
001212 



001214 
001222 
001224 
001230 
001234 
00123b 
001240 
001242 
ni244 

001250 
001252 
001258 



177584 
177586 
177180 
177182 
177184 
000002 



000000 
177772 



012767 
018703 
018704 
018700 
002087 
0050b7 
012737 
005037 
OObTOO 
00 02H0 

012737 



0047b7 

^ 

0127% 
005787 
1Q00Q7 
032767 
001003 
0127bb 
000002 



0l27b7 
104400 
0047b7 
0047b7 
005001 
005201 
00137b 
005201 



000001 
1777% 
1 77744 
1//73U 
177722 
17773b 
001122 
000012 



000008 

000002 

000012 
000340 

000340 
001214 
177640 

010000 

0003b0 



011052 



000010 

001030 

001030 

000010 
I7b830 



178388 
000002 



001224 010704 

010258 
010136 



TCSR: 

TOBR: 

KCRS: 

KCR81: 

CR82: 

TRTRflP: 

TRFLG: 

PROC: 

ERFLG: 
PIRQ: 



177584 
177588 
177180 
177182 
177184 
RTI 



0 

177772 





STER 



fJ&l'IfficlLSPcSSSca) TO RTT fOH M ll/HS) 



I 

IN 




:INlTIflLI2E 
^ETUP: NOV 

nov 
nov 

NOV 
CLR 
CLR 
MOV 
CLR 
5XT 
NOP 
MOV 
BR 
MOV 
CMP 
MOV 
MOV 
RTS 
JSR 
BR 
MOV 
MOV 
TST 
BPL 
BIT 
BTC 
MOV 
RTI 



TRET: 



BEGIN: 
RESTRT: 



PSSET: 

TESTl: 
TESTlfi 



CSR flfC DBR POINTERS 
•l.ITHAX 
KCftS.CRS 
KCRBl.CRBl 
INTVC.RDINT 
INTFLt 
TRFLG 
•TRET.ailO 
9112 
RO 

•RTT,aiTRTRflP 
.♦12 

iRTI.SlTRTRflP 
(SP)*,(SP)* 
Il2.9kl0 
1346, PSR 

X7.SETUP 

•§40. -(SP) 

•TESt,-(SP) 

TRFLG 

PSSET 

•10000,5R 

•1I§,2(SP) 



TO OUTPUT DATP ERROR >€RCING 
POP 11/45 PIRO REGISTER 



SET ITERATION MAXIMUM TO 1 ITERATION 
SET UP REGISTER POINTERS 

LOAD ADDRESS OF INTERRUPT VECTOR 
INITIALIZE INTERRUPT FLAG 
INITIALIZE TRACE FLAG 
SETUP RESVO INST TRAP RETURN 

;SIGN EXTEfC INST. 

;IF NO TRAP THIS IS Ah 11/45 OR 11/40 

IF TRAP, NOT AN 11/45 OR 11/40 
RESTORE STACK POINTER 

gTUP PiWCESSOR STATUS TO LEVEL 7 

INITIALIZE POINTERS AND FLAGS 

PUSH PC ON STACK 

I*?r ik^felTIVE. CLEAR T BIT 
TRACE TRAPPING IWIBITED^ 



T ON STACK 



FOR CORRECT INITIAU^TIi 

MOV itestiaTreturn 



001376 
016748 
012748 



177558 
0Ci26H 



SCOPE 
JbR 
JSR 
CLR 
INC 
BNE 
INC 
BNE 
INC 
BNE 
MOV 
MOV 



•/.7,CKBIT8 
•/.7!CLRTR 

coOnt 

COUNT 

.-2 

COUNT 

.-2 

COUNT 

.-2 

PROC,-(SP) 
iTS"^1b,-(5P) 



TION OF STATUS REGISTER 
- STUP SCOPE LOOP RETURN ADDRESS 
SO Aa TESTS START WITH SCOPE 

ST?S p8oC?Kok^S^ATUS AND CLEAR 
INITIALlg COIHTER 
l^IT TO BE CERTAIN 
THAT ALL CARDS ARE 
THRU BEFORE ISSUING 
INIT 



; RESTORE PROCESSOR STATUS 



■ll-DZCnB-B CrilF DOCLrtflTION 



b3M 001264 

E>3S 001^ : 

£»3b 001^70 

b37 001272 
b38 

£.40 00127M 
b4l 
b42 

£>43 00130b 
001310 

bH5 

b% 001312 

b47 00131M 

bne 00131b 

b4<3 001320 
bSO 

bSl 001322 

bsa 

b53 

bSM 00132M 

b55 001330 

bSb 001334 

b57 00133b 

b58 001342 

bSS 001344 

bbO 0013% 

bbl 0013S0 

bb2 001352 

bb3 00135H 

bb4 00135b 

bbS 001360 

bbb 001362 

bb7 00136M 

bbe 001366 

bb9 001370 

b70 81374 

b71 001400 

b72 001402 

b73 001406 

674 001410 

b75 X1412 
67b 

b77 001414 

bTB 001420 

b79 001424 

b80 00142b 
b81 

b82 mi430 

b83 

b84 

beS 001432 

b8b 001436 

be? 001440 

b88 001442 



COS 
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052713 
022713 
001402 
lOHOOO 
000404 

005013 
00C713 
001401 
104000 

104400 



0047b7 
0047b7 
005213 
032713 
001401 
104000 
005001 
005201 
001376 
005201 
001376 
005201 
00137b 
005201 
00137b 
016746 
012746 
000002 
032713 
001002 
104000 
000406 

052713 
032713 
001401 
104000 

104400 



004767 
005013 
005213 
032713 



TSTIB: 



RTI 
RESET 



SEND OUT INIT 

T|t aCRS '•SSSru^?' il^^^ REGISTER ALL ZERO 

HL? IsTRtS iSeCISTER NOT CORRECTLY INITIALIZED 

;ONLY BITS 1 AND b OF TH^ STATUS REGISTER SHOULD BE ABLE TO BE SET TO OfC 



17777b 
000102 



iAND READ BACK AS ONE 
6lS •l7777b.aCRS 

CHP 1102, acRs 

BEO . ^ 



01015b 
01003b 

000001 



177440 
001402 

040000 



040000 
040G00 



tLR 
TST 
BEQ 
HLT 

TEST2: SCOPE 
; START SHOULD 
;BIT 0 SHOULD 
JSR 
JSR 
INC 
BIT 
BEQ 
HLT 
CLR 
INC 
BNE 
INC 
BTC 
INC 
BNE 
INC 
BTC 
NOV 
NOV 
RTI 

TST2A: BIT 
BNE 
HLT 
BR 

C0NT2: BIS 
BIT 
BEO 
HLT 



BEO ♦6 •BRANCH IF OK 

HLT I STATUS 5GIST|R DIDN 

BR TEST2 iBRANCH AFTER FAILURE 

: CLEARING STATUS REGISTEA SHOULD CLEAR BITS 1 



^Ly'^IT! 
BMNCH I( 



IITS BUT 0 
1 AND 6 SHOULD BE SET 



?T|R.DIDH'T CONTAIN 102 
AND b 



9CRS 
9CRS 
.♦4 



;CLEAR BITS 1 AND b 
CHECK FOR Aa BITS CLEAR 
;BRANCH IF OK 

BIT 1 AND/OR BIT b DIDN'T C.EAR 



CAUSE CARD DOtC UITHIN 1 SECOtC 
ALUAYS READ AS BEING EQUAL TO ZERO 



■/<7,CKBITB 
X7'aRTR 

acte 

ll.SCRS 
.♦4 

COUNT 

COUNT 

.-2 

COUNT 

.-2 

COUNT 

.-2 

COUNT 

.-2 

PROC.-(SP) 
•TSTSa,-(SP) 

140000, acRS 

C0NT2 
TEST3 

140000, aCRS 
140000, SCRS 
>4 



CHECK FOR OFF "LINE SET 
STORE CURRENT PROCESSOR STATUS AND CLEAR TRACE BIT 
START READING A CARD 
C«CK BIT 0 
BRANCH IF NOT SET 
BIT 0 RE/V) AS A ONE 
INITIALIZE COUNTER 
WAIT 



; RESTORE PROCESSOR STATUS 



CHECK CARD DOTC 

CONTINUE IF SET 

CARD QprC DIDN'T SET UITHIN 400 NS 
NOTE THAT FAILURE COULD BE DUE TO READ 
NOT BEING RESET 

DATO TO STATUS REGISTER SHOULD CLEAR 

CARD DONE 

BRANCH IF IT DID 

DATO DIDN'T CLEAR CARD DONE 



010050 
001000 



TEST3: SCOPE 

;BU5Y (BIT <3) SHOULD BE SET BY READING A CARD 
;IT SHOULD REMAIN SET UNTIL CARD DONE 
JSR •/7.CKBITB " 

CLR acfts 
INC acRS 
BIT 11000, acRs 



. ^, WHICH SHOULD CLEAP 

;C«CK POfi OFF-LINE SET 
INITIALIZE STATUS REGISTER 
;READ A CARD 
: CHECK BUSY 



IT 



1D-li-DZCf«-B CMilF DOCLTIfiTION 
OrCMBB.Pll 



0Q2 
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b8<3 0014% 

b^O QQIHT- 

bSl OOlH! 

bS2 001 
b93 
b94 

b95 OGlHtt 

b% 001470 

bS7 001474 

bS8 00147S 

bSg OOlSOO 

700 001502 

701 00150b 
70c 001510 
703 

704 001512 

705 

706 

707 

708 

70S 

710 001514 

711 001520 

712 M1522 

713 001524 

714 

715 001530 

716 001532 

717 00153b 

718 001540 
7iq M1542 

720 001544 

721 0015% 

722 001552 

723 001554 

724 001556 
72C 001562 
72b 001564 

727 001566 

728 001570 
723 001572 

730 001574 

731 00157b 

732 Xlb02 

733 001604 

734 001606 

735 MlblO 
7X 001612 
7j; 001614 
738 OOlblb 
73S 001620 

740 Mlb22 

74 1 001624 

742 001626 

743 X163C 
-^■44 001632 




001002 

13 040000 



001000 



L00P3: 



001372 
032713 040000 

000404 

032713 001000 

001401 

104000 

104400 



P0NE3: 



BIT 
BIT 

S5 

BR 

BIT 
BEQ 
HLT 



L00P3 
TE5T4 

140000. aCRS 

11000, 3CRS 
L00P3 

140000, 3CRS 
TEST4 

TEST4 

tlOOO.SCRS 
TEST4 



'BRM1CH IF SET 

iREftOINC ft CftRO DIDN'T SET BUSY 

CHECK CftRO DONE 

BRANCH IF SET 

CHECK BUSY 

BRftfCH IF STILL SET 

CHECK CARD OOrC 

GO TO NEXT TEST IF SET 

BUSY CLEflRED BEFORE CfiPD DONE SE' 

; CHECK BUSY 

; GO ON TO NEXT TEST IF CLEAR 
;Cfi«0 DOfC DIDN'T CLEAR BUSY 



TEST4' SCOf^ 

;ft TIMING ERROR SHOULD OCCUR IF DATA IS NOT REftO AND NEW DATA COfCS IN 
ft TIMING ERROR SHOULD SET T« SPECIAL CONDITION BIT l*CN CARD DOfC OCCURS 
COLUrri ready should be cleared by the timing error flNO^PREVENTED from RESETTING 
SITS 11,14, AND 15 SHOULD BE CLEARED BY A DflTO TO T« STATLS REGISTER 



0047b7 
005001 
005213 
032713 

001775 
032713 
M1007 
005201 
105713 
1003b7 
032713 
001001 
000772 
032713 
001002 
104000 
000403 
005713 
100401 
104000 
032713 
XlOOl 
104000 
OOS301 
100002 
104000 
000402 
001401 
104000 
105713 
100001 
104000 
005013 
032713 



007624 
140200 
140000 

140000 
040000 



L00P4: 



J5R 
CLR 
INC 
BIT 



004000 



144030 



BEQ 
BIT 
BNE 
INC 

L00P4B: TSTB 
BPL 
BIT 
BNE 
BR 

CK4: BIT 
BNE 
HLT 
BR 
TST 
BMI 
HLT 

C0NT4: BIT 
BNE 
HLT 
DEC 
BPL 
HLT 
BR 
BEQ 
riLT 
TSTB 
BPL 
HLT 
CLR 
BIT 



•/.7.INIT 

COUNT 

aCRS 

1140200, aCRS 
L0OP4 

1140000, acRS 

CK4 
COUNT 

acRS 

L00P4 

1140000, 3CRS 
CK4 

L00P4B 
•40000, 3CR5 
.♦6 

C0NT4 

aCRS 

.♦4 

I40u0, 3CRS 
.♦4 

COUNT 
.♦6 

.♦6 
.♦4 

acRs 

>4 
3CR5 

•14400C. acRS 



INIT STATUS REGISTER 
INITIALIZE COUNTER 
INITIATE READ 

UflIT FOR SPECIAL COfCITION, CARD DONE. 

OR COLUNN READY 

LOOP IF NOtC OCCURRED 

SPECIAL CONDITION OR CARD DONE" 

YES, BRANCH 

NO. COUNT COLUMN READYS 
UAIt for COUtft READY TO CLEAR 
IF CLEAR. RETURN TO L00P4 
CHECK FOft SPECIAL CONDITION OR CAR 
BRANCH IF EIT»CR SET 
OTHERUISE, CHECK AGAIN 
C«CK CAR6 DONE 
BRANCH IF SET 

SPECIAL COfCITION SET BEFORE CARD DONE 

CHECK SPECIAL CONDITION 
BRANCH IF SET 

SPECIAL CONDITION WASN'T SE' 

CHECK TIMING ERROR 

BRANCH IF SET 

TIMING ERROR UASN'T SET 

CHECK NUMBER OF COLUMN READYS 

BRANCH IF ANY OCCURRED 

COLUMN REttDY NEVER OCCURRED 

BRANCH IF ONLY ONE OCCURRED 

COLUMN READY OCCURRED MORE THAN ONCE 

CHECK COLUMN READY 

BRANCH I* NOT SET 

COLUMN READY WASN'T CLEARED 

CLEAR BITS 11.14, AND 15 VIh Oi^^C 

CHECK 



lO-li-OZCfie-B CMllF OOCUflATION ^80 COLUfW) 
DZCHBB.Pll 



EO 
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745 

7H7 
748 
74<3 

752 
753 
754 
755 
7S6 
757 

758 



7fel 
7h2 
7h3 
764 
7b5 
7bb 
787 

7be 

7SS 
770 
77i 
772 
773 
774 
775 
77t, 
777 
778 
77<3 



88ib4S iSnoSi 



001642 104400 



001644 
001650 



00 

oc 
oc 

00 
00 

» 

00 

oc 
oc 
oc 
oc 
oc 
oc 

00 
00 
00 
00 

oc 

00 



o52 
654 
660 
662 
666 



67M 

^ 

704 
706 
710 
712 
714 
716 
720 
722 
726 
730 



001732 
001734 
001740 
001742 



n 001744 

7B2 001750 

783 001752 

784 001754 

785 001756 

786 001762 

787 001764 
768 001766 

789 001770 

790 001772 

791 001774 
792 

793 001776 

794 

795 

7% 002000 

797 002004 

798 002010 
7^9 002012 
SOO M2014 



004767 
005001 
005213 
032713 
001775 
032713 
001015 

104000 
000437 
^127 
100363 
005201 
005714 
105713 
100001 
104000 
000755 
032713 
001401 
104000 



000421 
020127 
001401 
104000 

021327 
001401 
104000 
005013 
021327 
001401 
104000 
005714 
005713 
001401 
104000 

104400 



004767 
012701 
005213 
105713 
100376 



BEQ 

HLT 



,♦4 



007»-74 

140200 
040000 



000117 



TESTS: SCOPE 
JSR 



LOOPS: 



X400C 

000117 
040200 
000200 



:K5: 



•/.7, INIT 
COdlNT 

acRS 

1140200, 9CRS 
.-4 

140000, SCRS 
CK5 
SCRS 
.♦6 



CLR 
INC 
BIT 
BEQ 
BIT 

BNE 

B^L 
HLT 

BR TEST6 

CHP COUNT, 179. 

BPL LOOPS 

INC COUNT 

TST aCRBl 

TSTB 3CRS 

BPL .+4 
HLT 

BR LOOPS 

BIT 14000, SCRS 

BEQ >4 

HLT 

;N0TE THAT IF COLUMN 

:fl TIMING ERROR WILL 

6r TEST6 

CHP COUNT, i79. 

BEQ .+4 

HLT 



REROY. CRRC DONE 
COfCITION 



CNP 
BEQ 
HLT 
CLR 
CHP 
BEQ 
HLT 
TST 
TST 
BEQ 
HLT 



SCRS, 140200 
>4 

SCRS 

SCRS, 1200 
.+4 

3CR31 

SCRS 

>4 



;BITS 11,14, AND 15 UEREN'T ALL CLEARED 



INITIALIZE STATUS REGISTER 
INITIALIH COUNTER 
INITIAT 
WAIT FC 

Icar?'Sne' 
yes. bramch 

SciP eSSr^SalT IF NOT SET 
;BIT 15 UAS SET 
CO TO ND(T TEST 
CHECK FOP 80 

BRANCH IF BO OR MORE UITHOUT CLEARING REAO^ 
INC«»©fr COUNTER 
ClIiwIfeCY 
riAKE SURE IT CLEARED 
BRANCH IF IT DID 

READING OAT'i BUFFER DIDN'T CLEAR READf 
;LOOP 

;C»€CK TIMING ERROR BIT 
iBRANCH IF NCT SET 
:TiniHG ERROR UAS SET 

rea6y sn noRE than bo times 

OCCUR AND nC COUNT UILL BE 79 
: BRANCH fFTER ERROR 
; CHECK COUNT 

; BRANCH IF BO COLUMN REAOYS OCCURRED 
; COLUMN READY DIDN'T OCCUR 8C TIMES 

iSnLY^aS'^BoN^^C COLUm READY SHOULD BE SET 

STATIS REGISTER IN URONG STATE 
SHOULD CLEAR DOC BUT NOT READY 
CfCCK FOR ONLY READY SET 
BRANCH IF OK 

STATUS REGISTD? IN URONG STATE 
READING DATA BUFFER SHOULD CLEAR COLUMN READY 
CHECK STATUS REGISTER 
BRANCH IF ALL BITS ZERO 
STATUS REGISTER NOT EQUAL TO ZERO 



TEST6: SCOPE 

; TIMING ERROR SHOULD SET BIT T BEFORE CARD DONE OCCURS. 



007340 
000115 



Ia DflTOB TO THE LOU BYTE OF THE CRS SHOULD CLEAR BITS iS.14. AND 11 



EVEN IF IT OCCURS AT COLUMN 8C 



uOOPb: 



JSR 
MOV 

INC 

TSTB 

BPL 



V.7.INIT 
•7>.. COUNT 
SCRS 
SCRS 
.-2 



INITIALIZE 
SETUP COUNTER 
START READING R 



CARD 



WAIT FOR COLUMN READY 



F02 
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eoi 00201& 

802 0Q202Q 
nriPTiP? 



riViH2 



805 



808 002040 

BOS 00204M 

810 0020% 

811 002050 

812 002052 

813 ogggH 

814 00205b 

815 pggoso 

816 002064 



817 
818 

819 002074 

020 002076 
821 

822 002100 

823 002102 

824 002106 

825 002110 

826 002112 

827 002114 

828 002120 

829 002122 

830 002124 

831 002126 
832 

833 002130 

834 

835 

836 

837 

838 

839 0021S 

840 00213F.- 
B41 002145 

842 g0214>) 

843 O^lStl 

844 002152 

845 0(S1S4 

846 002156 

847 002160 

848 002162 

849 Kgl66 
650 ^170 

851 002172 

852 002174 

853 002176 

854 002200 

655 0022C4 

656 002206 



005714 
005301 

^1§ 144000 
001776 

032713 004000 

001416 

105713 

inotxii 
104:^ 

005713 

100376 

032713 040000 
001406 

^Bil 144000 

001415 

104000 

000413 

032713 000400 
001010 
104000 
000406 

032713 004000 

001402 

104000 

000401 

104000 

104400 



Cr^7r,7 007206 

Dj'kTO* 000120 
140200 

iy/j7l3 
1*00002 
104000 
000455 

032713 040003 

0K301 
001402 
01K714 
000762 

032713 140000 

001775 

005713 



0FF6: 
ERR6: 



TST 
DEC 

^ 

8EQ 

BIT 

BNE 

BIT 

BEQ 

TSTB 

BPL 

HLT 

TST 

&iT 

BEQ 

CLRB 

BIT 

BEQ 

HLT 

BR 

BIT 

BNE 

HLT 

BR 

BIT 

BEQ 

HlT 

BR 

HLT 



aCRBl 
COUNT 
LOOP& 

1144000, aCRS 
.-4 

|4^,aCR5 

14000, 3CRS 
0FF6 
SCR5 
.♦4 

aCRS 
.-2 

140000, aCRS 

0FF6 

3CR5 

1144000, aCRS 
TEST7 



TEST7 

l400.aCR5 

TEST^ 

TE5T7 
14000, SCR5 

'*K ' 
TEST7 . 
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CLEAR COLUMN READY 

GO THRU LOOP FOR 1ST 78 COLUMN READY'S 

UAIT FOR CARD DONE OR TIMING ERROR 
OR SPECIAL CONDITION 
CARD DONE SET? 

YES. rPO^BLE TEST FAILURES 

f^HOT^iEff'^R^R IS PROBABLY OFF-LINE 

CHECK COLUHN READY 

BRANCH IF CLEAR _ 

TIMING ERROR DIDN'T CLEAR READY 

UAIT FOR SPECIAL CONDITION 

CHECK CAf^ OOfC 

IF NOT SET. READER IS PROBABLY OFF-LINE 

DATM TO LW BYTE OF CRS 

Cf€CK BITS 15.14.11 

BRANCH IF CLEAR TO tCXT TEST 

DATOB TO LOU BYTE OF CRS DIDN'T CLEAR 

BITS 15.14 AND/OR 11 

GO TO Nfo(T TEST 

CHECK BIT 8 

BRANCH IF SET 

BIT 15 UAS SET. B UASN'T 

GO TO r€XT TESt 

TIMING ERROR SCT? 

NO. BRANCH 

TiftiNC ERROR DIDN'T SCT BEFORE CARD DONE 
GO TO NEXT TEST AFTER ERROR 
TIMING ERROR UASN'T SCT 



TEST7* SCOPE ' ^ ^ - * ' 

:NOT feADING Tl€ 80TH COLUTW OF. DATA FROM THE BIFFER 
5H01L0 CAUSE A TIHING ERROR ON THE FIRST COLUMN OF THE NEXT CARD, 
SETTING EJECT SHOULD CLEAR TIHING ERROR, AND BIT 15 SHOULDN'T SET 
INCB SHOULD START" A READ , ^ . ' 



JSR 
INC 
MOV 

L00P7: BIT 
BEQ 
TST 
BPL 
HLT 
BR 
BIT 
BNE 
DEC 
BEQ 
TST 
BR 
BIT 
BEQ 
TST 



J:7.INIT- ' 

acRS' 

■80.. COUNT ^ 
1140200, aCRS 
L00P7 ' 
SCRS 
.♦6 

TESTS 

140000, 3CRS 

D0NE7- 

COUNT 

.•^6 

aCRBl 

L00P7 

1140000, aCRS 
.-4 

SCRS 



INITIALIZE 

START READ 

INITIALIZE COUNTER 

TEST FOR ERROR. DONE OR READY 

LOOP IF NONE Stl 

CHECK ERROR 

BRANCH IF NOT SET 

BIT 15 UAS SET 

GO TO NEXT TEST AFTER ERROR 

CHECK FOR CARD DONE 

BRANCH IF SET 

COUNT 

IF BOTH COLUMN READY, BRANCH 

CLEAR DONE 

LOOP 

UAIT FOR DONE OR SPECIAL CONDITION 
CHECK SPECIAL CONDITION 
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857 



8b0 
861 
Qb2 
8S3 
864 
869 
8&& 
867 
96«3 
96S 
270 
871 
972 
873 
87M 
875 
876 
877 
878 
87S 
880 
881 
882 
883 
884 
885 
38b 
887 
888 
88S 
8S0 
991 
892 
8S3 
89H 
895 
8% 
9<37 



900 
901 
902 
903 
90H 
905 
906 
907 
906 
909 
910 
911 



002210 

002216 
002220 
002222 



0132230 
002232 
002234 
002236 
002242 
0022HM 
0082% 



QG22S2 
0Q22SM 
002?f>G 
OOgcp M 
002266 
002270 
002272 
002276 
002300 
002304 
002306 

ooaiio 

002312 



100002 

*oc 



00S701 
001H02 
104000 

100401 
104000 
032713 
001775 

000420 
112713 
032713 
001402 
104000 
000411 
032713 
001775 
032713 
001003 
005713 
100001 
104000 



002314 104400 



002316 
002322 
002326 



002336 
002342 
002344 



002352 
002354 
002356 
002362 
002364 



002372 
002376 
002400 
002402 
002HOM 
032406 



004767 
004767 
005213 

g27l3 
1775 
032713 
001023 
005713 
100002 
104000 
000443 
005013 
022713 
001402 
104000 
Q004X 
011405 
012701 
005301 
001376 
Q21405 
001751 
104000 



004000 



000002 
004000 



140000 
000400 



00^022 
X37044 

140200 

040000 



001200 



000300 



BPL 

D0NE7: TST 
BEQ 
HLT 
BR 
INCB 
TSTB 
Bfll 
HLT 
BIT 
BEQ 
TSTB 
BPL 
HLT 
dR 

flOVB 

BIT 

BEQ 

HLT 

BR 

BIT 

BEQ 

BIT 

Bf€ 

TST 

BPL 

HLT 



TESTS: SCOPE 

SHOULD BE 
JSR 



L00P8: 



JSR 
INC 

il^ 
BEO 

BIT 

BNE 

TST 

BPL 

HLT 

BR 

CLR 

CMP 

BEO 

HLT 

BR 

MOV 
MOV 
DEC 
BNE 
CMP 
BEQ 
HLT 



GOS 
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00NE7 

TESTS 
COUNT 
.*6 

TESTS 
SCRS 
aCRS 
.*4 

•4000, acRS 

.-4 

SCRS 

.+6 

TESTS 
•2.aCRS 
•4600,3CRS 
.+6 

TESTS 

•140000, SCRS 
.-4 

«400.aCRS 
TESTS 
SCRS 
.♦4 



BRANCH IF NOT SET 

TEST FOR 80 COLUMN READY 'S 
BnflNCH IF wK 

COLUm READY DID NOT OCCUR BO TIMES 

GO TO rCXT TEST AFTER ERROR 

START fSAO 

CHECK COLUNN READY 

BRANCH IF STILL SET 

READY DID NOT REMAIN SE" 

TEST FOR TIMING ERROR 

LOOP IF NOT SET 

CHECK COLUMN READY 

BfSSNCH IF NOT SET 

TIMING ERROR DIDN'T CLEAR REAC^ 

SET EJECT 

CHECK TIMING ERROR 

BFMCH IF CLEARED 

TIMING ERROR NOT CLEAf?ED BY DATOB 

GO TO NEXT TEST AFTER ERROR 

WAIT FOR DONE OR SPECIAL CONOriON 

; CHECK BIT 8 

BRANCH IF READER OFF-LINE 
SPECIAL CONDITION SHOULDN'T SET 
SINCE DATOe CLEARED TIMING ERROP 
;BIT 15 UAS SET, 8 UASN'T 



AVAILABLE 
X7,INIT 
•/7.CLRTR 
SCnS 

1140200, 3CRS 
.-4 

•4Q000,aCRS 
DBRCK8 
SCRS 
.♦6 

TESTg 
SCRS 

•1200, SCRS 
.♦6 

TEST9 

SCRB1.R5 

•300.C0UNT 

COUNT 

.-2 

SCRB1,R5 
LOOPS 



in the data buffer for at least 1.0 millisecond 

initialize status register „ 
store current processor status and clear trace b 
start read 

uait for coluhn ready or card dof€ 
or special condition 
card oone^ 

yes, co to c«ck strobing of dbp 
no. check bit 15 
brAnch if not set 
bit 15 ms set 
60 to next test after error 
oato to crs - shouldn't clear busy or ready 
check for busy and ready 



BRANCH IF STia SET 
CRS IN URONG STATE 
CO TO NEXT TEST AFTER ERROR 
STORE DATA 
INITIALIZE COUNTER 
UAIT FOR 1 MILLISECOND OR LESS 

;DATA UNCHANGED^ 
OK. CONTINUE 

DAtA NOT AVAILABLE FOR 1 MILLISECOND 
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I7b370 
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DZCflBB.Pll 




913 


002410 


000424 


914 


002412 


017702 


915 


00241b 


012701 


91fe 


002422 


U2140S 


917 


002424 


001402 


918 


00242b 


104000 


919 


0024X 


000407 


950 


002432 


027702 


921 


00243b 


001402 


922 


002440 


104000 


923 


002442 


000402 


92S 


002444 


005301 


925 


00244b 


001385 


92b 


002450 


0lb7% 


927 


002454 


0127% 


928 


0024b0 


000CMJ2 


929 






9X 






931 


0024b2 


104400 


932 






933 






934 






935 


002%4 


0047b7 


93b 


002470 


0047b7 


937 


002474 


005213 


938 


00247b 


105713 


939 


002500 


00177b 


940 


002502 


DS2713 


941 


0G250b 


005714 


942 


002510 


005001 


943 


002512 


005201 


944 


002514 


00137b 


945 


002516 


005201 


9% 


002520 


00137b 


947 




032713 


948 


00252b 


001002 


949 


002530 


104000 


950 


002532 


000411 


951 


002534 


032713 


952 


002540 


001008 


953 


002542 


032713 


954 


0025% 


001402 


955 


002550 


104000 


9Sb 


002552 


000401 


957 


002554 


104000 


958 


00255b 


018748 


959 


002582 


0127% 


%U 


002588 


000002 


%1 






9b2 






9b3 


002570 


104400 


%4 






%5 


002572 


004787 


9bb 


002578 


012710 


%7 


002802 


052787 


%8 


002810 


018780 



17b3b0 
002482 



00bb54 
00bb7b 



000002 



044200 

040000 
000200 



17b252 
002570 





BR 


DBRCK8: 


MOV 




flOV 


C0NT8: 


CMP 




6EQ 




HLT 




BR 




CUP 




BEQ 




HLT 




BR 




DEC 




BNE 


REST8: 


nov 




flOV 




RTI 



TEST9 

aCRB2.R2 

•lOO.tOUNT 

aCRBi,R5 

.♦8 

RESTS 

aCRB2,R2 

.♦8 

RESTS 

COUNT 

CONTS 

PROC.-(SP) 

•TES!9,-(SP) 



ST AFTER FAILURE 
DATA IN REGISTER 



00 TO NEXT 
STORE ENCq^^^ 
SET UP COUNTER 
READ CAm-IHAGC DATA BUFFER 
BRANCH IF UNCHANGED 

bSnCH^ iS?^%ESSOR STATUS AND EXIT 

READ ENCODED DATA BUFFER 

BRANCH IF UNCHANGED 

CRB2 REAOjfoCORRECTLY 

BRANCH AFTER FAILURE 

COUNT DOUN 

LOOP IF NOT DONE 

RESTORE PROCESSOR STATUS 



TEST9* SCOPE 

: EJECT SHOULD PREVENT FURTHER COLUMN READY'S ^ _ 

CARD DONE SHOULD STILL OCCUR, AND TIMING ERRORS SHOULD BE 
PREVENTED IFTHE CURRENT COLOmN READY IS aEARED 



UAIT9: 



CK9: 



RESTg: 



JSR 
JSR 
INC 
TSTB 
BEG 
BIS 
TST 
CLR 
INC 
BNE 
INC 
BNE 
BIT 
BNE 
HLT 
BR 
BIT 
BNE 
BIT 
BEQ 
HLT 
BR 
HLT 
MOV 
MOV 
RTI 



•/.7,INIT 
/.7^CLRTR 

acte 
acRS 

.-2 

•2.aCRS 

acRBi 

COUNT 

COUNT 

.-2 

COUNT 

.-2 

t44200,aCRS 
CK9 

REST9 

140000, aCRS 
REST9 
•200,aCRS 
.+8 

RESTS 

PROC.-(SP) 
iTEStlO,-(SP) 



sr 



.INITIALIZE STATUS REGISTER 
SAVE PRXESSOR STATUS AND C.EAP 
■START READ 

I WAIT FOR COLUMN READY 

;SET EJECT 

I CLEAR COLUMN READY 

:UAIT 



CARD DONE. TIMING ERROR. OR 
COLUMN READY SET'- BRANCH IF YES 
NO CARD DONE OCCURRED 
CONTINUE AFTER FAILURE 
CHECK FOR CARD DONE 

CHECK COLUMN READY 
BRANCH IF NOT SET 
COLUMN READY WAS SET 

EJECT DID NOT PREVENT A TIMING ERROR 
RESTORE PROCESSOR STATUS 



TEST 10: SCOPE 

;CARD DONE SHOULD CAUSE AN INTERRUPT 

JSR Z7.INIT ; INITIALIZE 

MOV iTtNTlO^aADINT LOAD RETURN POINTER 
1751bb "IS •340.PSft SET PROCESSOR TO LEVEL 7 

000002 MOV PSR,S(ADINT) LOAD RETURN PROCESSOR ST^^TJS 
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%9 

871 
873 
974 

875 
J7I 



878 
979 
980 
981 
982 
983 
98S 
985 
98b 
987 



989 
990 
991 
9<32 
9S3 
994 
995 
9% 
997 
998 
999 
1000 
1001 
1002 
1003 
10£H 
1005 
lOCb 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
lOlb 
1017 
lOlB 
1019 
1020 
1021 
1022 
1D23 
1224 



002616 042767 




»44 
0026% 



002656 
002660 



"Ml 

104000 

001001 
104000 



i.4 
002666 
002670 
002672 
002674 
002676 
002700 
CAJ2702 
002706 



i: 

100001 
104000 
105713 
100001 
104000 
005013 
012710 
005037 



002712 104400 



002714 



0Q27X 
002736 



002756 
002760 
002762 
00 2770 
002772 
002774 
002776 



004767 
012701 
012710 
052767 
016760 

012713 
105713 
100376 
016067 
005013 
104000 
000411 
005013 



003004 
003006 
003010 
0^12 
003014 
U03016 
003020 
003024 



105713 
100402 
104000 
QQQ403 
005714 
005301 
X1352 
012710 
005037 



003030 10^400 



003032 
003036 
003042 
003050 
003056 



004767 
012710 
052767 
016760 
012713 



000340 

m 

000002 
040000 



000232 
000232 



006424 
000120 
002776 
000340 
175034 



000232 
000232 



006306 
003072 
000340 
174722 
000133 



175152 



175132 



TINTIO: 



CONTIO: 



8IC 

m 

BEO 

F10V 

CLRB 

HLT 

i?T 
BNE 
HLT 

cnp 

TST 

BPL 

HLT 

TSTB 

BPL 

tCT 

C.R 

PKIV 

CLR 



•340, PSR 

.-4 

2(flDINT),PSR 
aCRS 

CONTIQ 

•40000, acRs 

.+4 

(SP)*,(SP)* 

SCRS 

.♦4 

SCRS 
.44 

aCRS 

«232.a«DINT 
S»23^ 



;SET PROCESSOR PRIORITY TO 0 

RESTORE PROCESSOR TO HIGHEST PRIORITY 
CLEAR INTERRUPT ENABLE 
NO INTERRUPT XCURRED 

CHECK CRRO DONE 

BRANCH IF SET 

CARD DONE NOT SET 

RESTORE STACK POINTER 

NAKE 9jRE NO ERROR OCCJPPEO 

BIT 15 UAS SET 

CHECK COLUMN READY 

BRANCH IF NOT SET 

COLUNN READY UAS SET 

DISABLE INTERRUPTS 

CHANCE INTERRUPT RETURN ADDRESS 

TO CAUSE A MALT IF AN INTERRUPT OCCURS 



17504C 
000002 
175024 



000002 175006 



TESTll: SCOPE 
; EVERY COLUMN 
JSR 
NOV 
MOV 
BIS 
MOV 

LOOPll: BIC 
MOV 
TSTB 
BPL 
MOV 
CLR 
HLT 
BR 

TINTll: CLR 
CMP 
TSTB 
BMI 
HLT 
BR 
TST 
DEC 
BNE 

CONTll: MOV 
CLR 



READY SHOULD CAUSE 
J'J.INIT 
•86 ..COUNT 
•TIfftll.aAOINT 
•340.PSR 
PSR.S(AOINT) 
•346, PSR 
•101 3CRS 
SCRS 
.-2 

2(A0INT),PSR 
SCRS 

CONTll 
SCRS 

(SP)+,(SP)+ 

SCRS 

.♦6 

CONTll 

SCRBI 

COUNT 

LOOPll 

•232.aADINT 

St23$ 



AN INTERRUPT 

iScK^iw COLUMN 

L050 RETURN POINTER 

SET PROCESSOR STATUS TO LEVEL 7 

LOAD RETURN PROCESSOR STATUS 

UAIT FOR COLUm READY 

RESTORE PROCESSOR TO HIQCST PRIORITY 
CLEAR INTERRUPT ENABLE 
COLUMN READY DID NOT INTERRUPT 

CLEAR INTERRUPT ENABLE 

RESTORE STACK POINTER 

MAKE SURE COLUMN READY IS SET 

BRANCH IF SET 

COLUMN READY MASN'T SET 

CLEAR READY FLAG 
ALL 40 DONE? 
NO 

YES-CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF ANOTHER INTERRUPT OCCURS 



TES''12' SCOPE 

;CARL DONE SHOULDN'T CAUSE AN INTERRUPT IF THE PROCESSOR IS AT LEVEL 7 PRIORITY 



174726 
000002 



JSR yj.mi 

MOV •TtNT12.SADINT 

Bi«; «340.PSft 

MOV PSR.S(ADINT) 

MOV •lO^.SCRS 



: INITIALIZE 
; SETUP RETURN 

SET PROCESSOR TO LEVEL 7 PRIORITY 
;LOAD RETURN PROCESSOR STATUS 
SET EJECT, INTERRUPT ENABLE. AND READ 
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1( 
1 

1( 
1028 

m 

1031 
1032 
1033 
103M 
1035 
103fe 
1037 

m 

lOHO 
1041 
1042 
1043 
1044 
1045 
10% 
1047 
1048 
i04S 
lOSQ 
1051 
1052 
1053 
1054 
1055 
105b 
1057 
1058 
1059 
lObO 
lObl 
IQbB 
I0b3 
i0fc4 
lObS 
lObb 
I0b7 
I0b8 
lOb? 
1070 
1071 
1072 
1073 
107M 

1075 
107b 
1077 

iOBC 



00X72 

003100 
003104 



040000 



012710 00C232 
005037 000232 




003322 
003324 

0Q33X 
003334 

G033M2 
00335 0 
00335b 
003364 
003370 
003374 
00337b 
003404 
00340b 
003412 
00341b 
003422 
003424 
003432 



104400 
0047b7 

□527b7 
OlbTbO 
0H27b7 
0527b7 
012713 
032713 
001775 
01b0b7 
005013 
012710 
005037 
0057b7 
100034 
02b727 
100430 



003434 104000 



00343b 
003440 
0034M4 
00344b 
003450 



0034b2 
003%4 
003470 
003472 
003500 
303502 



00042b 
0J2713 
001001 
104000 
005013 
012710 
005037 
022b2b 
0057b7 
100404 

02b727 



OObOlH 
003440 
000340 
174430 
000340 
000240 
000103 
040000 



040000 

000232 
000232 

175322 

10000b 

17530H 



TINT12: HLT 

cnp 

CLR 

nov 

CLR 



•400bn,SCR5 

.-4 
.♦b 

(SP)+,(SP)+ 

acRs 

•232.aADINT 
at23^ 



UAIT FOR CARD DONE 

CONTINUf IF NO INTERRUPT OCCURRED 
W INTERRUPT OCCURRED 

NTERRUPT RETURN ftOQRESS 
A H«LT IF PU INTERRUPT OCCURS 



FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS 

PRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER THAN THE STANDARD (LEVEL b> 
HAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS LEVEL 



TEST FOR AN INTERRUPT ON LEVEL b 
SINCE THIS.IS.Wj^g THE CARD READER 



.IF IT 
tEST14: 



174434 
000002 
174420 
174412 



OGOCna 174372 

000232 
000232 
175370 

1753b2 10000b 



JSR 
NOV 
BIS 
NOV 
BIC 
BIS 

nov 

BIT 
BEQ 
NOV 
CLR 
MOV 
CLR 
TST 
BPL 
CMP 
BMI 

HLT 



NORMALLY IS, DON'T PRINT OUT A MESSAGE 



•/.7,INIT 

•TlNT14.aADINT 

•340.PSA 

PSRJ(ADINT) 

•346, PSR 

•240, PSR 

I103.9CRS 

•40o6o,acRS 

.-4 

2(A0INT),PSR 
9CRS 

jlg^aflOINT 

INTFLG 
TESTIS 

INTFLG, •lOQOOb 
TESTIS 



INITIALIZE 

SETUP RETURN fCQRESS 
SET PROCESSOR PRIORITY 
SETUP RETURN PROCESSOR 
SET PROCESSOR PRIORITY 
SET PROCESSOR TO LEVEL 
SET EJECT. INTERRUPT ENABLE, 
WAIT FOR 6aR0 DOt€ 



TO 7 
STATUS 
TO 0 

5 PRIORITY 

AND READ 



TINT14: 



175312 
10000b 



SET 14: 



BR TESTIS 

BIT »40000,aCRS 

BNE .+4 

HLT 

CLR aCRS 

MOV •232.aADINT 

CLR a^23d 

CMP (SP)+.(SP)+ 

TST INTFLG 

BMI SET14 

MOV •10000b, INTFLG 

BR TESTIS 

CMP INTFLG, I 10000b 



RESTORE PRO^SSOR TO HIGHEST PRIORITY 

DISABLE INTDWJPTS 

CHANGE INTERRIFT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

CHECK TO SEE IF LEVEL ALREADY RECORDED 

IF HQ, GO TO tCXT TEST 

IF SkCK TO SEE THAT THE 

INTERftUPT L£Va RECORDED IS BELOW 

THE CURRENT LEVEL 

INTEffUPT DIDN'T OCCUR WITH 

STRTUSAT LEVEL 5 

BUT PREVIOUSLY OCCURRED AT OR ABOVE 
THIS LEVEL 

MAKE SURE CARD DONE IS SET 

BRANCH IF SET 

CARD DONE WASN'T SET 

DISABLE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS „^ 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

RESTORE STACK POINTER 

CHECK FOR PREVIOUS FLAG 

BRANCH IF FLAG SET 

SET FLAG AND LEVEL 

: CHECK PREVIOUS LEVEL 
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1081 
1082 
1083 
108H 
1085 
1086 
1087 

im 

10<3U 
iO^l 

m 

10% 
10S7 
lOSB 
1099 
1100 
1101 
1102 
1103 
IIQH 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 

ill? 

1122 
1123 
1124 
1125 

1126 
1129 
1130 
1131 

1134 
1135 
1136 



003510 100001 
003512 104000 



004776 
OOSOOO 

005016 
OU 



104400 
004767 



005034 
0CGO36 
005044 
0050% 
005054 
005056 
QQS060 



016760 

0^13 
001775 
042767 
000240 
016067 
000402 
104000 
022626 



005072 
005076 
005100 



032713 
001775 
005013 



005102 104400 



005104 
005110 
.114 
il22 
005130 
005134 
005140 
005142 
1144 
il% 
005154 

005162 
164 
il66 
005172 



004767 
012710 
052767 
016760 
005067 
012713 
005001 
005201 
001376 
016067 
005013 

18408^ 
022626 
005013 
005037 
012710 



005176 104400 



004767 
012710 
052767 
016760 
042767 



005210 
005216 
00^224 



BPL 
HLT 



TST15 



; INTERRUPT PREVIOUSLY OCCURRED ONLY AT P LOWER LEVEL 



004340 



:ft TIMING ERROR 
tEST20: SCOPE 
JSR 



SHOULDN'T CAUSE AN INTERRUPT 



172754 
000101 
004000 

000340 

000002 



040000 



004234 
005160 
000340 
172650 
172642 
000100 



172760 
000002 



172732 
172722 



TINT20: 



172654 
000002 



000002 172622 



000232 
000232 



NOV 

BIS 

MOV 

MOV 

BIT 

BEO 

BIC 

NOP 

MOV 

BR 

HLT 

CNP 

MOV 

CLR 

BIT 

BEQ 

CLR 



TEST21: SCOPE 
;TEST FOR NO 
JSR 
MOV 
BIS 
MOV 
CLR 
MOV 
CLR 
INC 
BNE 
MOV 
CLR 
BR 
HLT 
CH^ 
CLR 
CLR 
MOV 



X7.INIT 

.T^Tg^SWINT 

PSR,2(ADINT) 

•igLacRs 
•40ixi,acR5 

.-4 

•340, P5R 

2(A0INT),PSR 
.♦6 

(SP)*.(SP)* 

140000, SCRS 
.-4 

acRS 



INITIALIZE 

fe??^pK8SoS°i8^HIOCST PRIORITY 
LOAD RETURN PROCESSOR STATUS 

HHi I rOK linilib cnKUn 



TO 



TNINT: 



C0NT21: 



INTERRUPT OCCURING 
'/.7. INIT 

PSR.SfADINT) 
PSR 

IIOO.SCRS 

count 

COUNT 
.-2 

2{A0INT),PSR 
3CRS 
C0NT21 

{SP)+,(SP)* 
'i232,aADINT 



;MOVE PROCESSOR TO LOUEST PRIORITY 

; CLOCK INTERRUPT IF IT OCCURRED 

;MOVE PROCESSOR BPCK TO HIGHEST oRIORrv 

TIMING ERROR CAUSED AN INTERRUPT 

RESTORE STACK POINTER 

CHANGE INTERRUPT AQQRESS TO CAUSE A 

HALT^F AN INTERRUPT OCCURS 

UAIT FOR CARD DONE 

; CLEAR INTERRUPT ENABLE 



HITH INTERRUPT ENABLE SET AND REST CLEAREC 
INITIALIZE CSR TO ZERO 

^lIS^^''*'^8^VEL 7 
STORE PROCESSOR STATUS 
SET PROCE^OR TO LEVEL 0 
ENABLE INTERRUPTS 
INITIALIZE COUNTER 
UAIT AUHILE 

{RESTORE PROCESSOR TO LEVEL 7 
; DISABLE FURTHER INTERRUPTS 

;AN INTERRUPT OCCURRED 
; RESTORE STACK 
♦QlffilLE FURTHER INTERRUPTS 
CHANCE INTERRUPT RETURN ADDRESS TO 
; CAUSE A HALT IF AN INTERRUPT OCCJR=^ 



4140 
15242 
000340 
172554 
000340 



172560 
000002 
172544 



TEST22: SCOPE 
; CHECK FOR SI Ml 
JSR 
MOV 
BIS 
MOV 
BIC 



fANEOUS INTERRUPTS ON MORE THAN ONE LEVEL 
•/.7.INIT ;MU^12E CSR TO ZERO 

•TMNT.aADINT SETuP RCTURN ADDRESS 

" SET PROCESSOR TO LEVEL 7 



«340.P5R 
PSR.a(ADINT) 
•346, PSR 



STORE PROCESSOR STATUS 
SET PROCESSOR TO LEVEL 



f«-ll-DZCnB-B cm IF OOCUMfiTION <80 COLUMN) CARD READER 
DZCNBB.Pll 



37 005232 



M2 0052SO 




% 0OS2U> 

47 005270 

48 005272 

50 005300 
51 

52 005304 



55 005306 

f 

56 S5316 

59 005320 

BO 005322 



1^ 

b8 



bS 005334 

69 0053HH 

72 005352 
74 

0053^ 

7? 005366 

78 005370 

n flC 372 
™^ 

1 005376 
82 005400 

i m 

87 005412 

90 005422 

91 005424 

92 00542b 



012713 

005067 

02 
022626 
104000 
005013 

8ll9lO 

104400 






linooo 

00045G 
105713 

105713 
100002 
104000 
000441 
105713 
100376 
005077 
105713 
100002 
104000 
000431 
105713 



000103 



005266 
172522 



000002 172512 



000232 
000232 



004032 



000001 



173410 



flOV 

T2INT: CUP 

nov 

CLR 
NOP 
NOV 
BR 

T2INTft: CMP 
HLT 

C0NT22: CLR 
CLR 
MOV 

TEST23: SCOPE 
;ALL MODES OF 
COLUMN REflOY 
JSR 
INC 
TSTB 
BPL 
CLR 
TSTB 
BPL 
HLT 
BR 

CNT23fi: TSTB 
BPL 
CLRB 
TSTB 
BPL 
HlT 
BR 

CNT23B: TSTB 
BPL 
CLRB 
TSTB 
BPL 
HLT 
BR 

CNT23C: TSTB 
BPL 
TST 
TSTB 
BPL 
HLT 
BR 

CNT23D: TSTB 
BPL 
CLR 
TSTB 
BPL 
HLT 
BR 

CNT23E: TSTB 
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1103, 9CRS 
.-2 

.aADINT 

PSR 

2(A0INT),PSR 
C0NT22 
(b)+, (6)+ 

SCRS 
9t232 

I232.9ADINT 



SET INTERRUPT ENABLE AND EJECT A CARD 
§?rif Wg5f Is SET 

mil 

SET PROCESSOR TO LEVEL 0 

PROCESSOR TO LEVEL 7 
RESTORE STACK 

THE INTERRUPT OCCURRED AT 2 LEVELS 
DISABLE INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS TO 
CAUSTa HALT IF AN INTERRUPT OCCURS 



DDRESSING CRBl OR CRB2 (DATO.DATOB.DATI 5 SHOULD CLEAR 



'/.7.INIT 

SCRS 

aCRS 

.-2 

SCRBl 

aCRS 

CNT23A 

TEST24 
SCRS 
.-2 
aCRBl 

acRS 

CNT23B 

TEST24 
aCRS 

.-2 

KCRBl) 

aCRS 

CNT23C 

TEST24 
aCRS 
.-2 
aCRBl 

acRS 

CNT23D 

TEST24 
3CRS 
.-2 
3CRB2 

acRS 

CNT23E 

TEST24 
3CRS 



; INITIALIZE 

; START READING fl CfWD 

•UAIT FOR COLUMN READY 

OATO TO CRBl 

CHECK COLUMN READY 

BRANCH IF CLEARED 

DATO TO CRBl DIOfrT CLEAR READY 

GO TO NEXT TFST 

UAIT FOR COLUMN READY 

DATOB TO LOW BYTE OF CRBl 
CHECK COLUMN READY 
BRANCH IF CLEARED 

DATOB TO CRBl LOU BYTE DIDN'T CLEAR READY 

GO TO fCXT TEST 

UAIT FOR COLUMN READY 



DATOB TO HIGH BYTE OF 
CHECK COLUMN READY 
BRANCH IF CLEARED 
LATjB TO CR81 HIGH 
GO TO NEXT TEST 
UAIT FOR COLUMN READY 



:rbi 



BYTE DIDN'T CLEAR READY 



DAT I TO CRBl 

CHECK COLUMN READY 

BRANCH IF CLEARED 

DAT! TO CRBl DIDN'T CLEAR READY 

GO TO NEXT TEST 

UAIT FOR COLUMN READY 



DATO TO CR82 
CHECK COLUMN READY 
BRANCH IF CLEARED 
DATO TO CRB2 DIDN' 
GO TO NEXT TEST 
UAIT FOR COLUMN READY 



CLEAR READY 



'^n-i]-D2Cf1B-8 CflllF DOCUflATION <8Q COLUMN) CARD READER 
DZCMBB.PII 
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11S3 
1J9S 
11«95 

lll^ 
11<» 

12X 

leoi 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

122M 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123M 

1235 

123b 

1237 

1238 

1239 

1240 

12M1 

1242 

1243 

1244 

1245 

1246 

1247 

1248 



005430 

131 
I33i 

0054HH 
0054% 
005450 
005452 
005456 
005462 
00S%4 
005466 
005470 

005472 
005474 
005476 
005502 
005504 
005506 



100376 
105077 
105713 

m 

000421 
105^13 
100376 
016702 
105062 
105713 
100002 
104000 
000407 

105713 
J 00376 
005777 
105713 
100001 
104000 



005510 104400 



005512 
005516 
005520 
0QS522 
Q0552S 
005530 
005532 
0G553H 
0OS3b 
005540 
005544 
0055% 
005552 
005554 
005560 
005562 
0C5566 
OOSSTH 

172 
;74 
005576 
005600 
005602 
CQ5606 
005610 
005614 
005616 



004767 
005213 
105713 
100376 
052713 
105713 
100402 
104000 
000421 
032713 
001013 
032713 
001772 
032713 
001003 
004767 
000415 
104000 
000413 
105713 
100001 
104000 
032713 
001775 
032713 
001402 
004767 



173370 



173350 
000001 



173324 



003626 
000002 

004000 
040400 
040000 
003720 



040400 
000400 
003664 



BPL 


. -2 


CLRB 


dCRB2 


TSTB 


9CR5 


BPL 


CNT23F 


HLT 




BR 


TEST24 


TSTB 


aCRS 


BPL 


.-2 


nov 


CRB2,R2 


CLKB 


1 t D^ \ 

1 (Rc; 


TSTB 


dCRS 


DDI 

BPL 




Ul T 

ML 1 




BR 


TEST24 


TSTB 


aCRS 


BPL 


.-2 


TST 


3CRB2 


TSTB 


aCRS 


BPL 


TEST24 


HLT 





DATOB TO LOW BYTE OF CRB2 
CHECK COLUMN READY 
BRANCH IF CLE^O 
DATOe TO CRB2 LOU 
GO TO NEXT TEST 
MAIT FOR COLUMN READY 



BYTE DIDN'T CLEAR READY 



LOAD POINTER 

DATOe TO HIGH BYTE OF CRBc 
CHECK COLUMN READY 
BRANCH IF CLEARED 

DATOB TO CRB2 HIGH BYTE DIDN'T CLEAR READY 
GO TO NEXT TEST 

; WAIT FOR COLUMN READY 



;DATI TO CRB2 
; CHECK COLUMN READY 
BRANCH IF CLEARED 
;0ATI TO CRB2 DIDN'T 



CLEAR READY 



TEST24: SCOPE 

; SETTING EJECT AFTER A COLUMN READY WITHOUT aEARING THE COLUMN READY 
; SHOULD SET TIMING ERROR (UHICH IN TURN SHOtLD CLEAR COLUMM READY) 



CNT24At 



CNT24B: 
TIM24: 



EN024: 



JSR 
INC 
TST3 
BPL 
BIS 
TSTB 
6MI 
HLT 
BR 
BIT 
BNE 
BIT 
B£Q 
BIT 
BNE 
JSR 
BR 
HLT 
BR 
TSTB 
BPL 
HLT 
BIT 
BEQ 
BIT 
BEQ 
JSR 



>C7.INIT 
9C^ 
3CRS 
.-2 

I2.3CRS 

scAs 

CNT2HA 

END2M 
•4000, SCR5 
TIM24 

•40400, SCRS 
CNT24A 
140000, SCRS 
CNT24B 
X7.CKBIT8 

en6ck 

ENOCK 

aCRS 

.+4 

•40400, acRS 

EN024 
»400.aCRS 
ENOCK 
•/.7,CKBIT8 



; INITIALIZE 
; START READING A CARD 
; CHECK COLUHN READY - UAIT 

SET EJECT 

CHECX COLUm READY 

BRANCH IF STia SET 

SETTING EJECT CLEARED COLUHN READY 

BRANCH TO UAIT FOR DONE AFTER ERROR 

CHECK TIMING ERROR 

BRANCH IF SET 

C^CK CARD DONE ATC OFF-LINE 
LOOP IF NONE SET 
CARD DONE SET? 

YES - BRANCH TO ERROR PRINTOUT 

NO - BIT 8 UAS SET SO OUTPUT NESSflGE 

BRANCH AFTER COMING BACK ON-LINE 

CARD DONE SET BUT TIMING ERROR DIDN'T 

BRANCH TO NEXT SECTION 

CHECK COLUMN READY 

BRANCH IF NOT SET 

TIMING ERROR DIDN'T CLEAR READY 

UAIT FOR CARD DONE OR OFF-LINE 



; CHECK OFF LINE 
; BRANCH IF NOT SET 
; OUTPUT ERROR MESSAGE 



005622 104400 



; CHECK SW7 AND RETURN TO TESTl IF SET, AFTER RINGING BELL 
iOTHERUISE GO INTO THE DATA TEST 
ENOCK: SCOPE 



no-ii-ozcne-B cm if oocumation <80 coLutiM> card rcaoer 
ozcnee.Pii 
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1249 
1250 
1251 

til! 

1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
12<32 
1293 
1294 
1295 
1296 
1297 
1298 
i299 
1300 
1301 
1302 
1303 
1304 



005624 032767 000200 171736 
005632 001417 
005634 004767 003560 



167 173166 
167 173306 



005650 000240 

00S656 000240 

005660 000240 

005662 000240 

005664 000240 

005666 000167 173264 



005672 
005700 
005702 
0D5706 
005712 
005720 
005722 
0057X 
005736 
0OS744 
0057% 
005754 
005756 
005764 
005772 
006000 
006002 
006010 
006016 
006024 
006030 
006034 



006050 
006052 
006060 
006062 



006066 
00607c 
006100 
006106 
006112 
006116 



012767 
000402 
005067 
005067 
032767 
001412 
012767 
012767 
012767 
000427 
032767 
001412 
012767 
012767 
012767 
C00411 
012767 
012767 
012767 
0127% 
0127% 
005767 



^67 
001003 
012766 
000002 
004767 



012710 
042767 
016760 
004767 
052713 
000001 



000056 001202 



001174 
173124 
000010 

014556 
015860 
01334** 



171650 

001146 
001142 
001130 



014056 
014554 
013165 

013356 
014054 
013154 
000340 
006062 
172772 

010000 

000360 

003256 



006122 
000340 
171672 
000706 
000100 



001112 
001106 
001074 

001066 
001062 
001050 



171520 
00C002 



171676 
000002 



BIT 
BEQ 
J5R 



•200.SR 
DflTST 
y.7.BELL 



COM TR^LG 
JHP RESTRT 



; TOGGLE TRACE FLAG 



;FAKE LOGICAL END OF TEST 
jTHIS PROGRAM SHOULD NOT BE EXECUTED IN CHAIN MODE 
llOGICAL: NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 

JMP RESTRT ;D0 LOGIC TEST AGAIN 



000020 171614 DATST3: 



;DATA RELIABILITY TEST FOR CMll 

iCHECK SR FOR TYPE OF DECK BEING 

6aTST: MOV •56.CDCNT 

BR DATST2 

DATSTl: CLR CDCNT 

DATST2: CLR ERFLG 

BIT IIO.SR 

BEQ DAT§T3 

MOV tMRXCD.TSTART 

MOV IMRKEND.TErC 

MOV •MSG20,6ECK 

BR CONTD 

BIT 120, SR 

BEQ ALPl 

MOV IBINCD.TSTART 

MOV •BINEN6.TErC 

MOV tnSG15,DECK 

BR CONTD 

ALPl: MOV •ALPCD.TSTART 

MOV lALPENfi.TEfi) 

MOV •MSG14,6eCK 

CONTD: MOV 1340. -fSP) 

MOV iDCNtl.-fSP) 

TST TRFLG 

BPL PSSETl 

BIT 110000, SR 

BNE PSSETl 

MOV 1360, 2(SP) 
PSSETl: RTI 

DCNTl: JSR y.7, IHV 



TESTED. AND INITIALIZE POINTERS 

; SETUP tARD COUNT TO ENTER TABLE CORRESPONDING TO NEXT C 
SKIP «XT INSTRUCTION 

SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING 
;FLAG SET PREVENTS PRINTING OUT ERROR HEADING 
CHECK FOR TYPE OF DECK 



; CHECK BIT 4 OF SR FOR TYPE Of DECK 
BRANCH IF NOT SET TO LOAD ALPi-WNUMERIC POINTERS 
;BIT 2 SET, LOAD BINARY TABLE POINTERS 

: BRANCH AROUND ALPHANUMERIC POINTERS 
;LOAO ALPHANUMERIC TABLE POINTERS 

PUSH STATUS ON STACK 
PUSH PC ON STACK 
CHECK FLAG 

IF IT IS POSITIVE, CLEAR T BIT 
TRACE TRAPPING IN^IIBITED' 
BRANCH IF YES 
SET T BIT ON STACK 

INITIALIZE CARD READER STATUS REGISTER 



;SET UP INTERRUPT SERVICING 



MOV 
BIC 
MOV 
JSR 
BIS 
UAIT 



iSRVC.aADINt 
i340.f'SR 
PSR.SfADINT) 
•/.7.NXCRD 
Ml60,2CRS 



AND START READING 

1 SETUP RETURN POINTER 
SET PROCESSOR TO LEVEL 0 
STORE CURRENT STATUS 
ADJUST POINTER AND START READING 
(ENABLE INTERRUPTS 
I WAIT FOR INTERRUPTS 



•C-ll-CZC^-B CnilF DOCUMflTIOH ^90 C0LU1N> CARD READER 



B03 
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1305 
130b 

1^ 
IXB 
130S 
1310 
1311 
1312 
1313 
1314 
1315 

!^}^ 

1318 
t3lS 
13gG 
1321 

isi! 

132S 
1325 
1326 
1327 

1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
133S 
1340 
1341 
1342 
1343 
1344 
1345 
134fc 
134/ 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
135{> 
1357 
1358 
1359 
l3fcC 



n0bl20 000776 



006122 
006126 
0061X 

m^i 

006140 
006142 
006144 

8Sli^ 

006160 
006162 
006164 
006172 
17H 



006206 
006212 
006214 
006216 



iJUb ccb 
006232 
006234 
006242 
0062% 
006^ 



006272 
006276 



006300 



00631( 
006314 
OS3I6 
006322 



006336 
006342 
006346 



006350 
006356 
006362 
00636^* 



032713 
001402 

1K713 
100402 
000167 
005267 
011%7 
105713 

m 

104000 

mi 

012701 

801^ 
011%7 

8^5 
0010% 
012767 
026725 
001040 
012767 
026725 
001032 

^02 
016705 
000002 



052767 
104000 
032713 
001002 
000167 
022767 
001002 
000167 
004767 
004767 
000002 



00040C 
001234 

000466 
U00726 

000340 

000456 

172622 
000010 



54 

000002 
000642 

0000C4 
000630 

000610 

000600 



000340 

000400 

000334 
000144 

000560 
003144 
000452 



052767 000340 

052713 000002 
005714 

032767 020C00 



BP 



-2 



lNTERRUPT_5ERVlCE^0g^ UHICH 



§RVC 



171604 
000704 



000652 
000636 



BIT 
BEQ 
JHP 
T5T 
BMI 
TSTa 
BUI 
JHP 
INC 
flOV 
TSTB 

HLT 
JHP 

SCONTl: flOV 

nov 

DEC 
BfC 
flOV 
CLR 
CHP 
BNE 
flOV 
CMP 
BTC 

nov 

CMP 
BTC 
CAP 
Bfll 

nov 

RTI 



♦6 
OFFSET 

jcrT 

ERSET 

aCRS 

.♦6 

NOTCOL 
CLCNT 

aCRBl,DATl 

acRs 

•340, PSR 

LASTCK 

3CRB2.DATErC 

•10.C6UNT 

coufrr 

.-2 

SCRei,DAT2 

PTQFF 

DATl.aRS 

FAIL 

•2.PT0FF 

0A^2,(RS)+ 

FftIL 

•H.PTOFF 

DAtENC,(RS)* 

FAIL 

R5.TEN0 

.♦6 

TSTART.RS 



^gg^ PATA^RELIABILITY TEST 

BRANCH IF NOT SET 

{HE^^SP^Jplf^ONOITIOh (BIT 15) 

OCCK COLUm READY 

BRANCH IF SET 

JUrf IF NOTSET 

KEEP TRACK OF CQLUNN NUNBER 

STORE DATA OF FIRST READ 

I1AKE SUR^ COLUm READY CLEARED 

i?^*ffioiEsioR°^8 LEVEL 7 

READING DATA DIDN'T CLEAR COLUm READY 

CO TO NEXT CARD AFTER ERROR PRINTOUT 

STORE ENCOOa DATA 

MIT AUHILE 



STORE DATA OF SECOND RF.AC 
CLEAR POnfTER OFFgT 
SCCK FIRST DATA ^fiO 
PRINTOUT IF URONG 

SET POINTDl OFFSET 

~ ^CK SECOND READING OF SANE DA^^A 




SET POINTER OFFSET 

CHECK ENCODED DATA 

BRANCH IF mOHQ 

C«CK FOR PC OF TABLE 

IF NOT THEfe, RTI 

nOVE POINTER TO LOOP THRU TABLE 



171470 ^RSET: 



000552 ERl: 



:SPECIAL COICITION BIT 15 HAS SET BUT BIT 8 HASN'T UHEN INTERRUPT SERVICE ROLIINE 
HAS ENTERRED 

LOCK OUT INTERRUPTS 



BIS 

BTC 

JHP 
CMP 
BNE 
JHP 
JSR 
JSR 
RTI 



•340,PSR 

•400,9CRS 
.♦6 

LASTCK 

•100.,C0CNT 

.♦6 

ALLOON 

Z7,CKBIT8 

'/7,NXCR0 



CIA^Cgl^ITJON HAS SET AND OFF .INE UASN" 

YES-SKIP OVER 

NO-GO START NEXT CARD 

C«CK FOR LAST CARD 

IF NOT, PRINT OUT MESSAGE 

; OUTPUT HESSAGE.HAIT FOR ON-LINE 
•START NEXT CAR6 



171420 
171176 



DATA ERROR HAS DETECTED, OUTPUT ERROR PRINTOUT 



^AIL: 



BIS 
BIS 
TST 
BIT 



•340.PSR 
i2.3£rS 

acroi 

•20000. 5R 



LOCK OUT INTERRUPTS 
SET EJECT TO PREVENT TIMING ERROR 
HAKE CERTAIN COLUMN READY IS CLEAR 
CK SU13 FOR INHIBIT PRINTOUT 



t:-ll-DZCfl6-B CflllF OOCUfWTION 

D:cr«.Pii 



c80 COLUriN) CARD READER 



I3bl 
I3&2 

13&5 
1366 
1367 
1368 

\^ 

1371 
1372 
1373 
:37M 
1375 
1376 
1377 
1378 
137S 
1380 
1381 
1?32 

i:b3 

1J84 
385 

.386 
iJ87 
1388 
138S 
13S0 

i3s: 

13S2 
13S3 
1394 
13S5 
13% 
13S7 

i3se 

1399 
1H{)0 
1401 
1402 
1403 
1404 
1405 
1HQ6 
1407 
1408 
140S 

1410 
1411 
1412 

1413 

141H 

;4is 

1416 



006372 
00637M 

881% 

006406 
006410 
006414 
006416 

0064X 
006436 
0064M0 
006444 
006450 
00645M 



006456 
006462 
006464 
006470 
006474 
006500 
006504 
006510 
006514 



006530 



006544 

006550 
QQ^g 
006 55 6 



006572 



006620 
006624 



001002 
004767 

mi 

000000 
032713 
001005 
032713 

ms 

azm? 

001002 
000167 

00 4767 
000002 



00571.7 
001006 
005267 
012702 
004767 
016702 
004767 
004767 
016702 
004767 
004767 
016702 
004767 
004767 
166705 

012502 
J04767 
004767 
016702 
004767 
004767 
Q16702 
004767 
00M767 

m 

004767 
016702 
»7 







BTC 


000056 




JSR 


171164 




TST 
BPL 






HALT 


000400 


FTEST: 


BIT 






BTC 


U4000C 




BIT 


000226 






000144 000444 


FCNT: 


CHP 






BTC 


000452 




jrf» 


003036 
00^44 




JSR 
JSR 
RTI 



172354 

1723% 
013066 
0034X 
000370 
003420 
003026 
000362 
006536 
00301 2 
000350 

002776 
000344 



003136 
002760 



003122 
002744 
000306 
003106 
0027X 

003074 
002716 
000262 
003060 



NOHD: 



:DflTA ERROR 

Sprint : tst 

BNE 

INC 

nov 
nov 

JSR 
JSR 

nov 

JSR 
JSR 

nov 

JSR 
JSR 
SUB 

no\' 

JSR 
JSR 

nov 

JSR 
JSR 

nov 

JSR 
JSR 

nov 

JSR 
JSR 

nov 

JSR 
RTS 
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.♦6 

•/J.FPRINT 

SR 

.♦4 

1400. SCRS 
FCNT 

140000, SCRS 

laI?ck 

I100.,CDCNT 
.♦6 

ALLDON 

•/.7,CKBIT8 

•/.7,NXCRD 



PRINTOUT ROUTirC 
ERFLG 
NOHO 
ERFLG 
•nSG13.R2 
•/.7.T0UT 
DECK.R2 

•/.7,t6ut 

•/.7!SPflCE 

cd6nt.r2 

•/.7,DECPR 
•/7:SPftCE 
CLtNT.R2 
y.7,0E6PR 
•/.7!SPACE 
PTftTF.RS 

(R5)+.R2 

•/.7,pr6ct 

•/.7.SPflCE 
DAtl.R2 
•/.7,PW)CT 
•/.7!SPACE 

•/.7,pAoct 
•/.tIspace 

%7,W0CT 
•/.7.SPACE 
DAtENC.R2 
>:7,PR0dT 
'/.? 



006636 032713 040000 

006642 001500 

006644 022767 000120 000232 

M6652 001401 

006654 104000 



: INTERRUPT NOT DUE TO ERROR OR 
ftOTCOL: BIT 140000, iCRS 

BEO NOTCD 

CHP teCCLCNT 

BEO >4 

HL"^ 
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ck for halt on error 
_ :h if halt on error not set 
halt on error set 

: check for card done 

; inhibit printout after card done 5e' 



;TEST FLAG FOR PREVIOUS PRINTOUT 
;IF SET. DON'T OUTPUT «AOINC 
•SET FlAC 

•OUTPUT HEADING FOR DATA ERROR PRINTOUT 
; OUTPUT TYPE OF DECK 

; OUTPUT CARD NUHBER HHERE ERROR XCURRED 

; OUTPUT COLUnN NUMBER MHERE ERROR XCURRED 

; SUBTRACT OFFSET FROfI POINTER TO POINT TO 

ADDRESS OF DESIRED PATTERN 

•OUTPUT CORRECT DATA PATTERN (NOT ENCODED) 

: OUTPUT DATA READ ON FIRST READING OF BUFFER 

; OUTPUT DATA READ OfC niLLlSECOfC LATER 

; OUTPUT CORRECT DATA PATTERN (ENCODED FORN. 

; OUTPUT DATA READ (ENCODED) 



COLUMN READY 
; CHECK FOR CARD DONE 
; BRANCH IF NOT SET 

staP*^ESRbirHAL?^F 80 COLUnNS JERE READ 
LESS THftN 80 COLUMNS UERE READ 



tD-li-CZCe-B CflllF DOCUflPTION 
D:Cf«8.Pll 
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1W17 

1420 
1421 
1422 
1423 
1424 
I42S 
143S 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
141H 
1435 
143b 
1437 
1436 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
14% 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1458 
1457 
1458 
1459 
14S0 
14t»l 
1452 
1453 
1%4 
1%5 
1458 
1417 
1458 
1469 
>70 
1471 
>72 




QO&TOb 
005712 
005714 
005720 
005 

SI 

005734 
005735 
0057H2 
0057HH 

0057S 
0057S5 
0C6754 
005755 
005772 



00577M 
007000 
007005 
007010 
007014 

007020 
007024 
0070X 
007032 
007035 
007042 



007044 
00705 2 
007055 
007050 

UU/U bc 
007070 



0Q7Q7H 
007075 
00710C 
007102 
007104 
X71Q5 



022525 
004757 
032757 
001002 
000157 
000000 



005157 
032757 
001402 
000157 
000157 

015705 
042713 
005213 
005257 
005057 
000207 



052757 
032713 
001003 
104000 

m, 

000157 

000000 
000000 

gooooc 

000000 

oooooo 

000000 



000144 

000125 

00O3H0 
OOOOOO 



002442 
000040 

000002 



172032 
000100 

172142 
175552 

000052 
000002 

000044 
000042 



00034Q 
002000 



177570 
177552 



00021b LftSTCK: Cff 
RTI 

171074 LftSTHT: BIS 
CLR 



LACNTs 
DEC 
BNE 
DEC 

ere 

DEC 
Bt€ 
DEC 
BNE 
BIT 
BEQ 
Jff» 



LflSTCD: Cff 
170604 BIT 



HALT 



•100..CDCNT 

LASTwt 

•/.7,NXCRD 

t^O.PSR 

-2 

LACNT 

.-4 

LACNT 

.-4 

•.ftCNT 

-4 
IflCNT 
. -4 

t^OO.SCRS 
.•5 

AL .DON 

•/.7. €^L 
•46 5R 
.♦5 

DECK > 



CHECK FOR LAST CARD 
BRANCH IF LAST CARD 
IF NOT LAST CARD 
GO ON 



RESTORE STACK 

RING KLL TO SIGNIFY "PASS COHPLETE" 
C«CK SR FOR CONTINUATION TO ANOTHER DEC(^ 
BRANCH TO 
CONTINUE TO 
DATA TEST DOfC 



ro AHOTHEROECK 



170551 



:UHEN CONTINUING FROf ONE DECK TO AMOT«R, CHECK SUL FOR TYPE 
lOF TESTING TO B^^PER ORNED 



ClECKCK: 



NXCRD: 



COM 
BIT 
BEQ 
JNP 
Jff» 

NOV 
BIC 
INC 
INC 
CLR 
RTS 



rRFLG 
1100/. ? 
.♦5 

RESTRl 
OATSTl 

TSTART R5 
l2.aCR > 
9CAS 
CDCNT 
CLCNT 
Y.7 



; TOGGLE TRACE FLAG 
: CHECK SUb 
; BRANCH IF NOT SET 

•RERUN COffilfCD INSTRUCTION AND DATA 'E5^ 

;YES - AU CA»©S IDENTICAL 
CLEAR EJECT IF SET 
:REAO ANOT>€R CARD 
;KEEP TRACK OF CARD NUTCER 
INITIALIZE COLUMN COUNT 
RETURN 



: INTERRUPT NOT CAUSED BY ERROR, iOLUNN READY, OR CARD DONE 



170724 NOTCD: BIS 
BIT 
BNE 
HLT 

NOTCDl: hLt 
JNP 



1340 PSR 

i2oaj.acRs 

NOTf'jl 
LAS:CK 
.ASTCK 



DECK: 

TSTART: 

TEND: 

CDCNT: 

CLCNT: 

DATl: 



0 
0 
0 
0 
0 
0 



LOCK OUT FURTHER INTERRUPTS 
TEST ON-LINE TRANSITION BIT 
BRANCH IF ScT 

NO BITS SET TO CAUSE AN INTERRUPT 
START NEXT CARD 

ON-LINE TRANSITION CAUSED AN INTERRUPT 
START NEXT CARD 

POINTER TO LITERAL "ALPHA- OR -SINAP^' 
STARTING ADDRESS OF DATA TABLE 
END ADDRESS OF DATA TABLE 
NUMBER OF CARD 

NUMBER OF COLUfI 

DATA ON FIRST READ fROfI CPBi 



NG READ 
EING CHECKED 



10-lI-DZCf1B-B CMir DOCLPWTION ^80 COLUMN) CARD REflOER 
OZCHBS.PU 



1M73 
1M7M 

1H76 

1477 

1M78 

UTS 

1 480 

1481 

148a 

1483 

148M 

H85 

1486 

1487 

1468 

148S 

14«« 

14S1 

14S2 

14'33 

1494 

1495 

14% 

1497 

1498 

1499 

1500 

1501 

1508 

1503 

1504 

1505 

150& 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

151b 

1517 

1518 

1519 

1520 

ll23 
1524 
1525 
i52fc 
1527 
1528 



007110 
007112 
007114 



00711& 
007122 
00712 
007132 
007134 
007140 
007142 



0071% 
007150 
007152 
0071 
0071 
0071{>2 
007170 
007176 
007200 



UU/cLn 
007206 

007210 
007214 

goTego 

007224 
007226 
_JH 
007236 
D072H0 
007242 
007244 
0072% 
007252 
0072S4 
007260 
007264 
007272 
007276 
0C7300 



000000 
000000 
000000 



004767 002276 



000000 
000167 177634 
005013 

032713 156377 



OOOOSO 170440 



^310 
007312 



001401 
104000 
032713 

^ 

052767 
00S713 

000416 

01271C 
005067 
012713 
000240 
016067 
005013 
104000 
000401 
022626 
005013 
032713 
00177S 
012710 
112713 
042767 
032713 
001375 
016067 
104000 
000403 
004767 



007324 
00732b 
0073X 
007334 
007336 
007340 



'13 
001001 
104000 
032713 
001401 
104000 
032713 



007312 
000100 
000340 
000400 

000002 



002102 
00200C 

000400 

030000 



ALCNT: 



020000 



000340 170606 
170602 000002 



007242 
170556 
000101 

000002 170542 



040000 



DflT2: 0 
DftTENC: 0 
PTOFF: 0 

:80 CARDS DONE 
AlLOON: JSR 

Ul 

HALT 
JflP 
CLR 
8IT 



BEQ 
HLT 
BIT 

^ 

BIS 

flOV 

INCB 

TST 

SMI 

HLT 

BR 

nov 

CLR 
MOV 
NOP 
NOV 
CLR 
HLT 
BR 
CMP 



PLLOK: 



170504 
170470 



5RVC1: 

ALUAIT: CLR 
BIT 
BEQ 
MOV 
MOVB 
BIC 
BIT 
Bt€ 
MOV 
HLT 
BR 

SRVC2: JSR 
CMP 

SRVC2A: BIT 
BNE 

HLT 
BIT 
BEQ 
HLT 
BIT 
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DATA ON SECOr€ READ OF CRBl 

DATA READ FROM CRB2 

OFFSET TO POINTER FOR DATA PRINTOL 



•/.7,BELL 
OECKCK 

acRS 

•156377, aCRS 



.♦4 

120000, aCRS 
,♦4 

I340.PSK 

P5RJ(ADINT) 

3CRS 
ALLOK 

ALhAIT 

•|RVCl.aADIN^ 

•lOl.SCRS 

2(ADINT),PSR 
3CRS 

.♦4 

(SP)+,(SP)+ 

•4^,aCRS 
.-4 

•SRVC2.aflOINT 

•ioo,a6RS 

•340, PSR 
•400 acRS 

.-4 

2(A0INT),PSR 

SRVC2A 

•/.7-BELL 

(SA)*,(SP)+ 

•200o;aCRS 

.♦4 

•4oo.acRs 

.♦4 

•30000. 3CPS 



RING BELL 

«W WuV °' 

cND OF DECK, SMS SET 
CHECK FOR T^ OF TESTING 
CLEAR ERROR 

ONLY BITS 8. 9 Aft 13 MAY STIU BE SE' 
BIT 9 HAY K SET SINCE C<«0 MAY NOT 
YET HAVE CLEARED THE READER TO CAUSE 
CARD OOfC 
BRANCH IF OK 

STATUS REGISTER INCORRECT 
C«CK BIT 13 

BIT 13 NOT SET 

SET PROCESSOR TO LEVEL 7 

SETUP RETURN STATUS 

ATTDfT TO READ- SHOaO RESET ERROR 

C»€CK Sir 15 

BRANCH IF OK 

SETTING RdS DIDN'T RESET ERROR 
BRANCH TO UAIT FOR ON-LINE 
LOAD INTERRUPT RETURN ADDRESS 
SET PROCESSOR TO LEVa 0 

ENABLE INTERRUPTS. KEEP ERROR SE'' 9Y SETTING REAC 
ClOCK IN INTERRUPt 
SET PROCESSOR TO LEva 7 
CLEAR INTERRUPT ENABLE Af€ ERRCP 
BIT 15 OIDnT C( 



CAUSE AN INTERRUPT 



; RESTORE STACK POINTER 

; CLEAR INTEWT ENABLE AND ERROR 

•UAIT FOR CATO DONE 

CHANGE INTERRUPT RETURN ADDRESS 

ENABLE INTERRUPTS 

SET PRO^SSOR TO LEVEL 0 

CHECK OFF-LINE BIT 

LOOP UNTIL CLEAR 

SET PROa^ TO LEVEL 7 

NO INTEWW OCCURRED 

BRANCH AROUND 

RING BELL 

RESTORE STACK POINTER 
CHECK BIT 10 
BRANCH IF SET 
BIT 10 NOT SET 
CHECK BIT 8 
BRANCH IF NOT SET 
BIT 8 UAS SET 
CHECK BITS 12 AND 13 
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152<3 
1S30 
1 
1 
1 

I53M 

1 
1 

1537 
1538 
153S 
15M0 
ISMI 
1542 
1543 
15^/4 
IbHS 

.'548 

jgg 

1551 
1552 

1555 
1558 
1557 
1558 
1559 
ISCiO 
1581 
1582 
1983 

ills 

1588 
ib87 
1588 
1589 
1570 
1571 
1572 
1573 
1574 

1575 
1576 
1577 
1578 
1579 
1580 
1581 
1562 
1583 



M7344 
0073% 



007370 
?7376 



007402 
007408 
007M12 
007414 

0074X 

ro74» 

0C7444 
007448 



>4 
007482 
007470 



00747M 
007500 



007508 

007514 
007520 
007524 
007530 




540 
544 
007550 
007554 



007588 



007574 



007604 
007810 
007814 



X1401 
104000 

jl40l 
104000 



022767 

Qom 

104000 
004767 
004767 
000002 
022767 

104000 

mi 

X14a3 
000000 
000187 
0S2767 
018780 
000187 



004767 
012787 



104400 

012:te 

004767 
012702 
004767 
004767 
004767 
004767 
004767 



'13 
XlXl 
1Q4Q00 
005713 
100401 
104000 
012702 
004767 
012702 
004767 



♦4 



002000 



177404 



•io^o.acRs 

.♦4 

(SP)"'.(5P)* 



BRANCH IF NOT SET 

T 1^ RNO/OR 13 STILL SET IN CRS 




Ck 8i? 10 

H IF NOT SET 



»TQ DIDN'T CLEAR ON-LINE BIT 
;|T^ STACK FROM INITIAL IN 



NTERR'JP' 



000144 177504 6FFSET 



UHEN INTERRUPT SERVICE WAS ENTERED. OFF-LINE (SIT 8) WAS SET 



002100 
177408 

000120 

177488 

001782 
000040 



177320 
000340 
170310 
177550 



171342 
007510 



QQ2408 
(301824 
012414 
002400 
012347 
002370 
002442 
002438 
002432 
002426 

000400 



012254 
002320 
012347 
002310 



177482 OFFSl: 



1701 2H 



170314 
000002 



002420 



0FFS2: 



CMP 
BEQ 

HLT 
JSR 
JSR 
RTI 

CflP 

!$ 

HLT 
JSP 
BIT 
BEG 
HALT 

JHP 

BIS 

.TOV 

Jff 



•iOO.,CDCNT 
OFFSl 

•/.7,CKBIT8 
•/.7,NXCRD 

•80.,CLCNT 
.♦8 

ALLDON 

•/.7.BELL 

t46.SR 

0FF§2 

DECKCK 
•340.PSR 
PSR.2(A0INT) 
AUWIT 



;LA§T CARD' 
; YES- BRANCH 

NO,OFF-lINE set but NOT lOOTH CARD 



LAST COLUriN' 
NO-SKIP OVER 

YES-GO RUN END OF DECK ROUTINE 

OFF-LINE SET BEFORE LAST COLUHN OF LAST CARD 



;HALT AT END OF DECK SET 
; START NEU DECK 
;LOCK OUT INTERRUPTS 
; STORE RETURN STATUS 



rSETUP FOR ERROR FUNCTION TEST 

^RCnil: JSR X7.^TUP ; INITIALIZE REGISTERS 

NOV •TtSTA42, RETURN | SETUP SCOPE LOOP RETURN ADDRESS 

:THE CARD READER GOING OFF-LINE SHOULD SET SPECIAL CONDITION (BIT 153 AND OFF-ulNE CBIT 
tESTA: SCOPE 



CLR 
JSR 
NOV 
JSR 
NOV 
JSR 
JSR 
JSR 
JSR 
JSR 
HALT 
BIT 
BNE 
HLT 
TST 
BNI 
HLT 
NOV 
JSR 
NOV 
JSP 



ITHAX 
'/.7.INIT 
•n§G3,R2 
•/.7.TO6T 
•n^,R2 
•/.7,T0OT 
•/7,CRLF 
X7 CRLF 
•><7,CRLF 
X7,CRLF 

1400, 9CRS 

.-♦•4 

3CRS 
>4 

•nSGl,R2 
X7.T0UT 
•riiG2,R2 
•/.7.T06T 



;RUN EACH ERROR TEST ONCE 0H.Y 
i INITIALIZE STATL5 REGISTER 

.•-PRESS CARD READER 'READ STOP'" 

;"THEN HIT 'CONTINUE* ON THE CONSOLE' 
inOVE HESSAGE UP ON TTY 



CHECK BIT 8 
BRANCH IF SET 

OFF-LINE (BIT 8) WASN'T SET 
CHECK BIT 15 
BRANCH IF SET 
BIT 15 WASN'T SET 

: -PRESS CARD READER 'RESET'": 

:"THEN HIT 'CONTINUE' ON ^Ht CCNSClE* 



■^-U-DZCfie-B cm IF OOCUnflTION 

ozcrfiB.Pu 



G03 

.80 COLUMN' CARD RFODCR HACY1I 27(732) 08-5EP-7t) 0^:02 PftGE 32 



158S 
1586 

ilg 

1589 

ill? 

15% 
15S3 
1594 
1595 
1598 
1597 



IbOO 
l&Ol 
1&Q2 
lb03 
l&OH 
IbOS 
16QE> 
lb07 

iboe 

1&09 
I&IO 
l&ll 
1&12 
lbl3 
1&14 
1£>15 
lbl£> 
lbl7 
1&18 
lbl9 
1&20 
1&21 
lb22 
lb23 
IScM 
lb25 
l£»26 
lb27 
lb28 
lb29 
1£>X 
lb31 
lb32 
lb33 
lb34 
lb35 
lb3& 
lb37 
Ib38 
ifc39 

IfcHQ 



007S20 
007SM0 



007SH2 

OOTbSM 
OOTbbO 



004767 0023S2 
004767 002356 



000000 



104400 
004767 
012702 
004767 
012702 



007 
007704 
007710 

mi 

007720 
( 



007724 
007726 
007730 
007734 
007736 
007740 
007744 
0077SO 
00775 4 
00776 0 
007764 
007770 
007774 
010000 
010004 
01X10 



010012 
010014 

010020 
010^4 
010030 
010034 
010040 
010044 
010050 
010054 
010060 
010062 
010066 
210070 
010072 



004767 
004767 
004767 
000000 

m'i 

104000 

104000 
032713 
001001 
104000 
0127CE 
004767 
012702 
004767 
0127CE 
00476? 
004767 
004767 
004767 
004767 
000000 



104400 
004767 
012702 
004767 
012702 
004767 
004767 
004767 
004767 
004767 
000000 
032713 
001001 
lOHOOC 
005713 



001474 
012507 
002250 
012347 




002306 
002302 
002276 

000400 



020000 



012560 
002160 
012254 
002150 
012347 
002140 
002212 
002206 
002202 
002176 



001324 
012624 
002100 
012347 
002070 
002142 
002136 
002132 
002126 

000400 



JSR 
JSR 

in 

HALT 



•/.7,CRLF 
•/.7.CRLF 
•/.7.CRLF 
•/.7,CRLF 



;HOVE riESSflGE UP ON TTY 



; INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION 
llN THE 200 n/S CARD READER IT SHOULD ALSO SET CARD SUPPLY ERROR 
tE5T8: SCOPE 



RESETS: 



JSR 
flOV 
JSR 
NOV 
JSR 
JSR 
JSR 
JSR 
JSR 
HALT 
BIT 
BNE 
HLT 
TST 
BNI 
HLT 
BIT 
BNE 
HLT 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
JSR 
JSR 
JSR 
JSR 
HALT 



ZT-INIT 
IN§G5,R2 

•/i7.T06T 

•MSG2.R2 

z7,T06t 

•/.7,CRLF 

•/.7,CRLF 

•/C7,CRLF 

X7,CRLF 

tSOO.aCRS 
.♦4 

aCRS 

•20000. aCRS 
>4 

•MSC6.R2 

'/.7.ToOt 

•f1^Gl,R2 

•/.7.T0C)T 

•n$G2,R2 

•/.7,TO0t 

X7.CRLF 

•/C7,CRLF 

X7,CRLF 

•/.7,CRLF 



ISTER 
THE INPUT HOPPE"" 



; INITIALIZE STATUS REGI 
•-REMOVE ALL CARDS FROM 

:-THEN HIT 'CONTINUE' ON "HE CONSOLE 

;f10VE f€SSAGE JP ON TTY 



CHECK BITB 
BRANCH IF SET 

OTF-LIME (BIT 8) UASN'T SET 

CHECK SPECIAL CONDITION BIT 

BFANCH IF SET 

SPECIAL CONDITION NOT SET 

YES. TEST BIT 13 

CONtlNUE IF SET 

CARD SUPPLY ERROR UASN'T SET 

"RESTORE CARDS IN INPUT HOPPEP" 

; -PRESS CARD READER ' RESET '- 

;-THEN HIT 'CONTINUE' ON THE CCNSOlE* 

:10VE MESSAGE UP ON TTY 



[OUTPUT STACKER FULL SHOULD SET BH 15. AND IN AN MS READER SHOULD ALSO SET BIT 
tESTC: SCOPE 

INITIALIZE STATUS REGISTER 

•LOUER THE OUTPUT STACKER PRESSURE ARM 



JSR 
MOV 
JSR 
MOV 
JSR 
JSR 
JSR 
JSR 
JSR 
HALT 
BIT 
BNE 
HLT 
TST 



•/.7.INIT 
•M§C7,R2 

'/.7.to6t 

•nSG2.R2 

'/.7J0(jl 
■/.7,CRLF 
■/.7,CRLF 
■/.7,CRLF 
■/.7,CRLF 

1400. aCRS 
>4 

SCRS 



THEN HIT 'CONTINUE' ON THE CONSOLE" 
:MOVE MESSAGE UP ON 'TY 



CHECK BIT 8 
BRANCH IF SET 

OFF-LINE (BIT 8) UASN'T SE^ 
CHECK SPECIAL CONDITION BIT 



10-ll-DZCf1P-B cm IF DOCLIflTION <B0 COLUPW) CARD REftDER 
0ZCf1B8.Pll 



IbMl 
16)42 
ie)M3 
16)44 
Ib45 
lb4{) 
lb47 
1&48 
lb4g 
1&50 
IbSl 
1&52 
lb53 
IbSM 
IbSS 
IbSb 
:b57 
lb58 
IbSS 
IbbO 
ISbl 
lbb2 
lbb3 
lbb4 
IbSS 
Ibbb 
lbb7 

ibbe 
ibb9 

IbTO 

Ib'/l 

lb72 
lb73 
IbTM 
IbTS 
IbTb 
lb77 
IbTB 
IbTS 
IbSO 
IbSl 
lb82 

ibsa 
ibes 

lb85 

lb»> 

lb87 
lb88 
IbSS 
lb% 
IbSl 
lb92 
lb93 
lb«94 
lb95 



010074 
01007b 
010100 
010104 
01010b 
010110 
010114 
010120 
01012S 
OIOIX 
010134 
010140 
010144 
010150 



010152 
010154 
OlOlbO 
0101b4 
010170 
010174 
010200 
010204 
010210 
010214 
010220 
010224 
0102X 
010234 
010240 
010242 
0102% 
0102S0 
010254 
0102K} 
0102b2 
uIG2b4 
0102bb 
010270 
010272 
010274 
01027b 
010300 
010302 
01030b 
010310 
010312 
010314 
01031b 
010320 
010324 
01032b 
010330 
Q 10334 



100401 
104000 
032713 
001001 
104000 
012702 
g047b7 
012702 
0047b7 
0047b7 
0047t7 
0047b7 
0047b7 
000000 



104400 
0047b7 
012702 
0047b7 
012702 
0047b7 
012702 
0047b7 
012702 
0047b7 
0047b7 
0047b7 
0047b7 
g047b7 
000000 
032713 
001775 
.'047b7 
rjl2713 
005001 
005201 
00137b 
005201 
00137b 
005201 
00137b 
005201 
00137b 
032713 
001001 
104000 
005713 
100401 
104000 
032713 
001001 
104000 
012702 
00H7b7 



020000 



012254 
002010 
012347 
002000 
002052 
0020% 
002042 
00203b 



001 lb4 
012507 
001740 
012347 
0017X 
012703 
001720 
012254 
001710 
0017b2 
00175b 
001752 
00174b 

002000 

001070 
000003 



000400 



010000 



0125b0 
001 £70 



BUI 

HLT 
BIT 
BNE 
HLT 

RSETC: flOV 
JSR 
flOV 
JSR 
JSR 
JSR 
JSR 
JSR 
HflLT 

:fl FEED ERROR 
:THIS ERROR DC 
tESTD: SCOPE 
JSR 

nov 

JSR 

flOV 

JSR 

flOV 

JSR 

MOV 

JSR 

JSR 

JSR 

JSR 

JSR 

HALT 

BIT 

BEQ 

JSR 

flOV 

CLR 

INC 

BNE 

INC 

BNE 

INC 

BNE 

INC 

BNE 

BIT 

BNE 

HLT 

TST 

BMI 

HLT 

BIT 

BNE 

HLT 

PSE'^D: MOV 
JSP 
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.♦4 

•20000, aCRS 
.+4 

•HSG1,R2 

•/.7.T0UT 

•n^,R2 

X7,T0UT 

•/.7,CRLF 

X7 CRLF 

X7,CRLF 

•/.7,CRLF 



; BRANCH IF SET 

; SPECIAL CONOITION NOT SET 

YES. TEST BIT 13 

CONtlNUE IF SET 
I CARD SUPPLY ERROR UASN'T SE^ 

; "PRESS CARD READER ' RESET 

;-THEN HIT 'CONTINUE* ON THE CONSOLE' 
;f10VE MESSAGE UP ON TTY 



HOULD SET BIT 15. AND IN THE MS READER IT SHOULD ALSO SET BI' 12 
UJ?S WHEN THE FEE6 MECHANISM FAILS TO DELIVER A CARD TO Ti€ READ 5^6' 



XV. INIT 

f/lSC5,R2 

X7.T06t 

lf1^G2,R2 

y.7.T06T 

in^,R2 

■/.7.to6t 
•n^i,R2 

X7 CRLF 
7.7,CPLf 
X7,CRLF 
•/.7;CRLF 

•2000, aCRS 
.-4 

y.7,INIT 
•SiSCRS 

coOnt 

COUNT 
.-2 
COUNT 
.-2 
COUNT 
.-2 
COUNT 
-p 

•400.SCR5 
.♦4 

3CR5 
.+4 

•10000, 3CR5 
.+4 

•nSG6,RE 



: -REMOVE ALL CARDS FROM THE If^T HOPPER" 

;-THEN HIT 'CONTINUE' ON THE COffiOLE" 

;-H0L0 DOHN THE SUITCH AT THE BOTTO« 

;0F THE INPUT HOPPER" 

1 -PRESS CARD READER ' RESET '" 

;10VE MESSAGE UP ON TTY 



;UAIT FOR CARD READER ^0 COME ON-lINE 

; INITIALIZE STATUS REGISTER 
iSET EJECT AND READ 
:UAIT AUHILE 



TEST OFF-LINE BIT 

BRANCH IF SET 

BIT 8 UAS NOT SET 

CHECK BIT 15 

BRANCH IF SET 

BIT 15 HAS NOT SET 

TEST CARD READER CHECK Br 

BRANCH IF SET 

BIT 12 UASN'T SET 



ON MS READERS 



•RESTORE CARDS IN ^HE INP^T HjPPEP* 



lO-lI-DZCflB-B CnilF DOCUHflTION *80 COLUMN) CfiRO REftOER 
DZCr«B.Pil 



103 

nftCYll 27(732) 08-5£P-7t, 09:02 PAGE 3-^ 



171B 
171§ 



b97 

m 8 

701 0 
702 
703 
704 
705 



0340 
034M 



0360 
0364 
0370 
0374 
0400 



0402 



0H60 



0504 

0514 
0516 



173S 
1740 
1741 
1742 
17M3 
17HM 
17H5 
174{) 
17H7 
174B 
174S 
17S0 
1751 
1752 



010526 

iM 

010540 
010544 
010550 
010554 
010560 
010564 
010570 

010572 
CI 0574 
01 0600 



012702 
004767 

m 

004767 
004767 
004767 
004767 
000000 



104400 

V7 



004767 

12? 



012702 

004767 
004767 
004767 



1 1 1 1 1 1 



032713 
001775 
012713 
032713 

100401 
104000 



104000 
127C 



012702 
004767 
004767 
'W767 
J047b7 
004767 
000000 

104400 
0047fc7 
000000 



012254 
001560 

001622 
001616 
001612 
001606 



012414 
001510 



147 
012254 

88!^ 

001526 
001522 
001516 

002000 

000003 
14000Q 



010000 



012254 
001370 
012347 
001360 
001432 
001426 
001422 
00141b 



000620 



nov 

JSR 

!^ 

JSR 
JSR 
JSR 
JSR 
HALT 



•f1SGl,R2 

y.7.TQUT 

•/7,CRLF 
•/.7,CRLF 
•/.7.CRLF 
•/.7,CRLF 



;fl MOTION ERROR SHOULD SET BIT 
:THIS ERROR OCCURS UHEN A CARD 
tESTE: SCOPE 



TESTG; 



m5v 

JSR 
NOV 
JSR 
MOV 
JSR 
MOV 

jIr 

JSR 

JSR 

JSR 

HALT 

BIT 

BEO 

MOV 

BIT 

?l? 

BMI 
HLT 



HLT 
RSETE: MOV 
JSR 
MOV 
JSR 
JSR 
JSR 
JSR 
JSR 
HALT 



SCOPE 

JSP 

HALT 



•/.7.INIT 
•n^Gi3,R2 

•/.7.T0CIT 

lflSGl,R2 

•/.7.T0C)T 
•/.7,CRLF 
X7,CRLF 
•/.7,CRLF 
*/.7,CRLF 

•2000, 3CRS 
.-4 

•3,9CRS 

il<^0000,9CRS 

.-4 

acRS 

.+4 



•10000. acRs 

.♦4 

•«SGi,R2 

•/.7.TOC1T 

•M^G2,R2 

X7J00T 

•/.7 CRLF 

%7,CRLF 

yJ.CRLF 

>.7,CRLF 



y.7,BELL 



: "PRESS CARD READER "START*" 

;-THEN HIT 'CONTINUE' ON THE CONSOLE" 

:HOVE MESSAGE UP ON TTY 



15, AND IN THE MS READER IT SHOULD SET BI' 
JaA OCCURS AT THE READ STATION 

;-then hit 'continue' oh the console" 

-block the card reader station tc 
pISvent a card goinTtjwj, and- 
-press card reader ' start '" 

:move message up on tty 



MONITOR ON-LirC TRANSITION (BIT 10; 

CONTINUE M€N CARD READER COTCS ON-LINE 

READ A CARD AND SET EJECT 

CHECK DONE AND SPECIAL CONDITION BITS 

WAIT 

CHECK SPECIAL CONDITION BIT 
CONTINUE IF SET 

SS??M'M M?S P«ST 

THE READ STATION THIS TEST 

WILL FAIL- MAKE CERTAIN THAT THE CARD 

DIDN'T HAKE IT THRU BEFORE 

CONSIDERING THIS A CARD READER FAI^JRE 

CARD READER CfCCK NOT SET 
-PRESS CARD READER ' RESET - 



;-THEN HIT 'CONTINUE* ON THE CONSOLE' 
;MOVE MESSAGE UP ON TTY 



:IF SET. RING BELL AND 
:HALT 



nO-ll-DZCflB-B cm IF DOCUrWTION <80 COLUMN) CPRD REfiDER 
DZCflBB.Pll 



J03 



7S3 
754 
755 

7f8 
'oO 
761 
7bP 
7b3 
I7b4 
I7b5 
17bb 
17b7 
I7b8 
1769 
1770 
1771 
1772 
1773 
177M 
1775 
177b 
1777 
1778 
177S 
1780 
1781 
1782 
1783 
178M 
1785 
l7Bb 
1787 
1788 
1789 

1791 
1792 
1793 
1794 
1795 

1^ 

1796 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
180b 
1807 

isoe 



0l0b02 0l27b7 007510 
QlOblO 0001b7 I7bb72 



0lQbl4 
010b2Q 

010b3b 
010)40 
01*44 
0l0b52 
QlQbbO 
OlObb4 
010670 
0l0b74 



0b7b 
0702 
070H 
0712 
0720 



0734 



075b 
OTbO 
07b4 
07bb 
0770 
0772 
077b 
1000 
1002 



0047b7 170222 
OOUOOO 

74« 




010bb4 



000177 000000 
000000 




0047b7 
000000 
01b7b7 
042767 
005067 

88^ 

005067 

o{? 

"13 

105713 
100426 
032713 
001015 
005713 
100371 
032713 
001002 
104000 
000754 



170140 

166660 
170000 
00034H 

176144 
000400 



000314 
040000 

000400 



D01316 



44 
36 



001250 
001246 



000360 
000352 



nov 

JflP 
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•TESTft+2, RETURN ; SETUP SCOPE LuOP RETURN flOORESS TO LOOP THRU TESTS 
TESTft ; START ERROR TESTS OVER ON CONTINUING 



: ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST 
•NOTE THAT SWU MUST BE OOltt AFTER 2ND HALT 



^ESTX: 



XLOOP: 
RETRNX: 



JSR 

HALT 

MOV 

ADO 

HALT 

CLR 

MOV 

MOV 

JMP 

CLR 

JMP 

0 



X7, SETUP 

SR.^TRNX 
I2,%TRNX 

•4000.ITMAX 
•XLOO^, RETURN 

mr 

9RETRNX 



i uSl\^F8^STS?INC^Aob^S 

I^hS^^Io'^B^T^'SB^S after scope INSTRUCTION 
SET SR OPTIOffi (BIT U MUST = 0) 
•CLEAR ITERATION COUNTER 

;LOAO RETURN ADDRESS 
;JUMP TO TEST 



COUNTER AT ZERO 



ROUTINE TO C»€CK CARDS UHICH HAVE Aa COLUMNS IDENTICALLY PUNCHED. 
IMAGE PATTERN IN SMI i -SHOO. THEN HIT CONTINU E ( AFTER THEDECICIS^_ 

UP TO THAT POINT (ALL PRINTOUTS ARE INOCTAL). ySftLSfJSRP JPSS^^ 
SUiS^l CAUSES A HALTIfT^ AN ERROR, AM) SU13sI INHIBITS ERROR PRINTOUTS. 



CKSAHE: 



CKLOOP: 



CKLPl: 



JSR 
HALT 
MOV 
BIC 

aR 

CLR 

III 



2110Q4 004767 0CC41Q 



BNE 
TST 
BPL 
BIT 
BNE 

hlt 

BR 

CKSIT: JSR 



INC 



X7, SETUP 
SR .CARD IH 

•i^oggo^cARDin 

TOTOD 
aCNT 

acRS 

CKCOL 

•4^.aCRS 

CKCTO 

acRs 

CKLPl 
•400.9CRS 

CKSit 

CKLOOP 
•/.7,8ELL 



STi 




PATTERN 



ERROR fCADING 



_ _ _ BITS OF PATTERN 
INITIALIZE CARD COUNT 

INITIALIZE COLUMN COUNT 

^W*{f !eT TO HAIT FOR READER TO COME ON-LINE. 
START READING CARD 
INCREMENT CARD COUNT 
C»C3( COLUMN READY 
I ILStT 
CARD DONE 
IF SET 
CHECK SPECIAL CONDITION 
LOOP IF NOT SET 
CHECK BIT B 

BRANCH IF SET TO UAIT FOR READER 
SPECIAL CONDITION SET, BIT 




ON-LINE. 
CLEAR 



:RING BELL TO SIGNIFY READER OFF-LINE 



10-ll-D2Cfie-B cm IF DOCUflftTION <80 COLUMN) CfiRD REftDER 

DZCfiee.Pii 



iSOS 
1910 

ilik 

1813 
1814 
1615 
leib 
1817 
1818 
181S 

1822 
1823 

182{> 
1827 
1828 
182S 
1830 
1831 
1832 
1833 
183S 

1835 
18X 

1839 
1840 
1841 
1842 
1843 
1844 
1845 
18% 
1847 
1848 
1849 
1850 
1851 

1854 
1855 

U 

1856 
1859 
I8S0 
1661 
1862 
1863 



032713 
001375 



054 
ObO 

i8g 

011070 
011078 
011100 
01110b 
011110 
011112 
011116 
011124 
011126 
011132 
011134 
011140 
011144 
011150 
011154 
OlUbO 
011164 
OlliTO 
011174 
011200 
011204 
011210 
011214 
011220 
011224 
0112X 

Siii% 

011244 
011250 

811" 

011256 
011262 
011264 
011266 
011270 
011272 




104000 



Ul%7 
005267 
105713 
100002 

m 

012701 

026767 
001005 
026767 

goiggi 

000721 
005267 
032767 

005767 
001006 
005267 



4767 
004767 
016702 
004767 
004767 
016702 
004767 
004767 

004767 
016702 
004767 
004767 

005767 




032713 
001775 
000623 
000000 
000000 
000000 



000400 

000120 176056 



176046 
176040 



000200 



176020 

176012 000174 
176004 000164 



00015C 

020000 166444 

167704 

167676 

m 

001032 
175724 
004076 
000352 
175712 
000514 
000336 
175700 
000500 
000322 
000044 
000464 
000306 



30 

166320 



140000 



CK5IT1: 


BIT 




BNE 




BR 


CKCRD: 


CMP 




BF.a 




HLT 




BR 


CKCOL: 


MOV 




INC 




TSTB 




BPL 








BR 




MOV 


CKLP2: 


DEC 




BNE 




MOV 




CMP 




BNE 




CW 




BNE 




BR 


CKFfllL: 


INC 




BIT 




BNE 




TST 




BNE 




INC 




MOV 




JSR 


CKNOHD: 


JSR 




MOV 




JSR 




JSR 




MOV 




JSR 




JSR 




MOV 




JSR 




JSR 




MOV 




JSR 




JSR 




MOV 




JSR 


CKHLT: 


TST 




BPL 




nHL 1 




BR 


CKDONE: 


BIT 




BEQ 




BR 


TO TERR: 


0 


rOTCRD: 


0 


CPRDIM: 


0 


;REPD P 


CftRD 



K03 

MftCYll 27(732) 

«400.aCRS 
CKSltl 
CKLOOP 
•80..CLCNT 

cklo6p 

CKLOOP 
SCRB1,0AT1 

CLCNT 

acRs 

.♦5 

CKLOOP 

•200.coi;nt 

COUNT 
CKLP2 

SCR81,DAT2 

DPTl.tflROIH 

CKFPlL 

DAT2.CflRDIM 

CKFfllL 

CKLPl 

TOTERR 

t200CK3,SR 

CKHLT 

ERFLG 

CKNOHO 

ERFLG 

•f6G19.R2 

•/.77iOUt 

•/7 CRLF 

cl6nt.r2 
•/.7,de6pr 

Dfltl.R2 

•/7,Pf^0CT 

•/.7'SPflCE 

Dflt2.R2 

•/.7,PTOCT 

■/.7.SPflCE 

T0tCRO,R2 

X7,PR0CT 

Jc7.SPflCE 

T0tERR.R2 

•/.7,PR(XT 

SR 

CK00f€ 

CKLOOP 
tl4C000,9CRS 
CKDONE 
CKLOOP 
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CHECK BIT 8 

LOOP IF STILL SET 

READ 

START NEXT CARD IF OK 

FINAL COLUMN COUNT WASN'T 80 

START nJxT card 

READ DATA BUFFER 

COUNT COLUMNS 

C«CK COLUMN READY 

BRANCH IF OK 

UAIT AWHILE 



READ CR81 AGAIN 

COMPARE FIRST DATA TO PATTERN 

BRANCH IF FAILURE 

COMPARE SECOND READING TO PATTERN 

BRANCH IF FAILURE 

UAIT FOR fCXT COLUMN OR END OF CARD 
COUNT ERRORS 

C«CK FOR irtllBITINC PRINTOUT 
BRAMCH ARoQk) PRINTOUT IF SET 
TEST FLAG TO PRINT FADING 
»»VCH IF ALREADY DONE 
PRINT HEADING ONC£ WLY 
OUTPUT fCAOINC 

OUTPUT CARRIAGE RETJRN, LINEFEED 
PRINT COLUMN NUMBER 



; PRINT FIRST READING 

; PRINT SECOND READING 

; PRINT TOTAL NUMBER OF CARDS READ 

; PRINT TOTAL NUMBER OF DATA ERRORS 

; CHECK SU15 TO HALT ON ERROR 
; BRANCH IF NOT SET 

HALT ON ERROR 

CONTINUE 

;UAIT FOR SPECIAL CONDITION OR DONE 
; START NEXT CARD AFTER CHECKING Br 9 



AND EXECUTE ft PROGRAM 



10-ll-0ZCf18-B CflllF DOCUriflTION <80 C0LUf1N> 

ozcriBe.Pli 



L03 
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I8b5 
I8b6 



1869 
1870 
1871 

\¥l 

87H 
87S 
87b 
877 
878 
879 
880 
881 
882 
883 
884 
885 



891 



1894 
lb95 
18% 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
190b 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
191b 
1917 
1918 
1919 
1920 



1302 
1310 
1312 



lb75H2 



;DELPY BEFORE REflOINC ANOT«R CARD 
:THIS UILL «ID IN TESTING FOR 'PICK ERRORS' 
ClELflY: JSR - - 



0lb7b7 IbbZbZ 
005213 

0052b7 000022 



m m 



132b 
1330 
1354 
133b 



7 

001375 
005367 
1)01372 
0007bl 



011340 000001 
011342 000000 



01 

81 

01 

8i 

01 

8i 



344 0047b7 



35b 



3b4 



011372 
011400 
011402 
011410 
01141b 



011420 
011424 
01142b 
011434 
011440 
011442 
0114% 

011450 
01 145b 
Qll4b2 
011464 
Oll4bb 
011470 
011472 
011474 
01147b 
011504 



[37 
005013 

mi 

001401 

m 



01 b7b7 
011b% 
OlbTbb 
0427bfc 
000002 



105777 
100375 
012777 
013702 
00141b 
105777 
100375 
012777 
105777 



004712 
000240 
000240 



Jl27b7 
000207 



120 
14 



000004 



000030 IS: 



2S: 



HALT 
MOV 
INC 
INC 

BNE 
DEC 
BNE 
BR 



•/.7, SETUP 
SR.DLRYO 

scfts 

DLRYO 
DLRYl 
DLRYl 
2S 

DLAYO 

2S 

IS 



; SETUP POINTERS 
;UftIT FOR OPR. 
;REflO SR 
;HOVE CRRD 

;CLEftR SECOND COUNTER 
• DELAY 

; DELAY FINISHED ' 
BR IF NOT 
;BR IF YES 



00013b 
001000 



DLAYO: 1 
OLAYl: 0 

; ISSUE MESSAGE IF CARD READER IS OFF-LINE 

UAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING A CARD 
INITIALIZE STATUS REGISTER A^© USE ERROR HALT IF IT DOESN'T CLEAR PROPERLY 
!nOTE THAT PROGRAM UILL HANG HERE IF BUSY REMAINS SET 

;SEE IF OFF-LINE BIT IS SET 
iHAIT FOR BUSY TO CLEAR. IN CASE 
;A CARD IS^TILL BEING AEAO 
; INITIALIZE STATUS REGISTER 
» DATA BUFFER TO CLEAR 
(E §JRE INITIALIZATION C 
i BRANCH IF ALL BITS ZERO 



iNIT: 



JSR 

Vi 

CLR 
TST 
TST 
BEQ 

9il 



•/.7.CKBIT8 

•l60Q,3CRS 

.-4 

3CRS 

SCRBl 

SCRS 

.+4 



'/.7 



COLUMN REAOr 
OK 



NOT ALL BITS OF STATUS REGISTER ARE ZERO 
r^TURN 



lbb400 lb7434 tLRTR 



SUBROUTINE TO SAVE STATUS AND CLEAR T BIT 



lbb370 
000020 



lb7372 

000207 
000042 

Ib7350 

000000 
lb7334 



000002 
000002 



Ib73b4 



lb7342 



LOGIC: 



000001 0004 lb END: 



MOV 
MOV 
MOV 
GIC 
RTI 



:BELL ON PASS 
6eLL: TSTB 
BPL 
MOV 
MOV 
BEQ 
TSTB 
BPL 
MOV 
TSTB 
BPL 
RESET 
JSR 
NOP 
NOP 
NOP 
MOV 
RTS 



PSR.PROC 
(SP).-(SP) 
PSR,S(SP) 
■20 2(SP) 



COMPLETE 
9TCSR 

.-4 

•207,flTDBR 
9142, R2 

END 

aTCSR 

.-H 

•O.STOBR 

aT6SR 

.-4 

y.7,(R2) 



tl.lTMAX 
Y.7 



:SAVE STATUS 
;PUSH RETURN PC 
{SETUP STATUS WITH 

; RETURN 

;WAIT FOR TTY READY 
;RING BELL 



T BIT CLEAR 



;MAKE CERTAIN ITERATION MAXIMUM IS CORRECT 
; RETURN 



MD-ll-DZCflB-B cm IF OOCUflflTION <80 C0LUf1N> CARD REfiDER 
DZCflBS.Pll 



M03 
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1921 
I "322 
1923 

192«> 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

193M 

193S 

1936 

1937 

1938 

1939 

19M0 

1941 

19M2 

19M3 

19HM 

19H5 

19% 

19H7 

19H8 

19M9 

1950 

1951 

1952 

1953 

1954 

1955 

19St) 

1957 

1958 

1959 

I9b0 

i%l 

1962 

1963 

1%4 

1%5 

1966 

1%7 

1968 

1%9 

1970 

1971 

1972 

1973 

1974 

1975 

1976 



011506 
011512 
011514 
011516 
011522 
011526 
011532 
011536 
011540 



011542 
0115% 
011550 
011556 
011562 
011564 
011570 
011572 



011574 
011602 
011604 
011606 
011612 
011616 
0116^ 
011624 
011630 
011634 
011640 
011644 
0116% 
011654 
011660 
011664 
011670 
011674 
011676 
011700 
011702 
0117C4 
011706 
011710 
011712 



032713 000400 



013261 
000402 
013176 
000372 



012702 
Q04767 
012702 
004767 
000000 
000762 



105777 
100375 
012777 
005367 
100367 
005067 
000207 
000000 



036727 
001401 
000431 
012667 
012667 
02%% 
004767 
010267 
016702 
004767 
105777 
100375 
012777 
016702 
004767 
016702 
005767 
100001 
□00000 
000002 
000000 
000000 
000000 
000000 

xoooo 



167250 

000240 167242 
000010 

000002 



165770 020000 



000076 
000074 

000362 
000052 
000054 
000054 
167152 

000240 167144 

000032 

000030 

000012 

165674 



CKBIT8: 



; SUBROUTINE TO CHECK FOR BIT B (OFF-LINE) BEING 5ET 
[REftOER CSR, AND PRINT OUT R I1ES5RGE IF IT IS 

— - 1400, aCRS 

.+4 

V.7 

inSGlB.R2 

x7.T0Ut 
■f1§G17.R2 
•/.7,T0Ut 



BIT 
BNE 
RTS 
HOV 
JSR 
MOV 
JSR 
HALT 
BR 



CKBIT8 



IN CRRD 



CHECK BIT 
BRANCH IF SET 
feTURN IF NOT SET 
OUTPUT rCSSAGE 
-BIT 9 MRS SCT- 
-REHEDY THE ERROR CONDITION 



RND PRESS 'CONTINUE" 
HfilT FOR CONTINUE 
CHECK AGAIN 



; SUBROUTINE TO ISSUE H SPACES 
;N IS ONE PLUS VALUE C0NT;^INED IN SPACEX 
SPACEX IS CLEARED UITHIN THE SUBROUTINE, SO THAT fl CALL ON 
•SPACE WITHOUT LOADING SPACEX ISSUES ONLY ONE SPACE 



011714 010367 177764 



SPACE: TSTB 
BPL 
MOV 
DEC 
BPL 
CLR 
RTS 

SPACEX: 0 



; ENTERED WITH 
iPRINT OUT THE 
^RINT: BIT 
BEO 
BR 
MOV 
HOV 
CMP 
JSR 
HOV 
HOV 
JSR 
TSTB 
BPL 
HOV 
HOV 
JSR 
HOV 

B.CK: TST 
BPL 
HALT 
RTI 

SAVR2: 0 

SAVR3: 0 

SAVR4: 0 

SAVPC: 0 

SAVPSR: 0 

PROCT: MOV 



STCSR 
.-4 

■240.aTDBR 
SPACtx 
SPACE 
SPACEX 

X7 



;MAIT FOR TTY READY 

; OUTPUT A SPACE 
; DECREMENT COUNT 
;L0OP IF NOT DONE 
RESET COUNT TO ZERO 
; RETURN 



SYSTEH TRAP CALL (HLT) 
ERROR PC AND STATUS REGISTER 



SR. 
.+4 
B.CK 
(6)+, 
(6)+ 
-(6). 
/'.7,cftLF 

SA^PC, 

aTtSR 
.■4 
•240. 
SAVPSR, 

SA^R2, 

SR 

.+4 



120000 



SAVPC 

SAVPSR 

-(6) 

5AVR2 

X2 

PROCT 



aTDBR 

y.2 

PROCT 
•/J2 



OUT 



TEST FOR INHIBIT PRINT 
BRANCH TO PRINT 
INHIBIT. CHECK FOR HALT 
PC OF FAILING ROUTINE 
PSR OR ERROR CONDITION 
RESTORE STACK 

OUTPUT CARRIAGE RETURN, LINEFE:£D 
SAVE R2 

; PRINT PC+2 IN OCTAL 
•WAIT FOR TTY READY 

; OUTPUT A SPACE 

PRINT PROCESSOR STATUS AT TIHE OF FAILURE 

RESTORE REGISTER 2 

CHECK SR FOP HALT SWITCH 

BRANCH IF NOT SET 

HALT ON ERROR UP 

RETURN TO MAIN LINE 



X.3,SfiVR3 



:SAVE R3 



MO-ll-OZCMB-B CMllF DOCUriPTION <80 COLUHN> CftRC REPDER 
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NC3 



MftCYll 27(732) 08 SEP-7b OS: 02 PPGE 3<3 



2001 
2002 
2003 
rjOH 
2005 
2006 
2007 
2008 
200S 
2010 
2011 
2012 
2013 
2C1M 
2015 
201b 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
202b 
2027 
2028 
202S 
2030 
2031 
2032 



011720 

8l{7i6 
011730 
(511754 
01173b 
Q117HQ 
0117M2 
011744 
011746 
011750 
0U754 
01175b 
011762 
011764 

m 

011776 



012010 

012016 
012020 
012022 
012024 
012026 
012030 
012034 
012040 

012042 
012050 
012052 
012060 
012062 
012070 
012072 
012076 
012100 
012104 
012110 
012114 
012120 
012122 
012124 
0x2126 



012130 
012136 
012142 
012144 



010467 

m 

100001 
Q05203 
006102 
006102 
005501 
1057r 
100375= 
010377 
005204 
020427 

m 

016704 




001402 

11 

006102 
006102 
006102 
005501 
010203 
042703 
052703 
000743 

032767 
001012 
032767 
001013 
026767 
100007 
005267 
022606 
012667 
000177 
005067 
011667 
000CX)2 
000001 
000000 
001224 



142777 
111267 
005202 
121267 



177762 
000260 



167042 

167036 

000006 

177706 
177704 



177770 
000260 



040000 165520 

004000 165510 

000036 000032 

000026 

165672 
000016 
000010 
000006 



MOV •/.4,SflVR4 

CLR '/.M 

CLR COUNT 

MOV «2b0, y.3 

TST •/.2 

BPL .+4 

INC y.2 

ROL Z2 

ROL y.2 

flOC COUNT 

C.UPIT: TST8 STCSR 

BPL C.WftIT 

MOV y.2, STDBR 

INC /.4 

CMP aM, 16 

BNE Q.CQNT 

MOV SflVR3,v.3 

MOV S«VR4,y.4 

RTS yj 
C.CONT: CLC 

TST COUNT 

BEQ .-^6 

CLR COUNT 

SEC 

ROL •/.2 

ROL •/.2 

ROL •/.2 

ADC COUNT 

MOV X2. •/.3 

BIG •1^7770, •/.3 

BIS 1260. X3 

BR C UAiT 

AND/OR ITERATION LOOP FOR 



iSCOPE 
kOPEC 



D.l: 
0.2: 



ITMfiX: 
ITCNT: 
RETURN: 



BIT 
BNE 
BIT 
BNE 
CMP 
BPL 
INC 
CMP 
MOV 
JMP 
CLR 
MOV 
RTI 
1 
0 

TESTl+2 



140000, SR 
D.l 

•4gOO,SR 

ITCNT, ITMflX 
0.2 
ITCNT 
(6)+, 
(6)+ 
3RETLRN 
ITCNT 
S'/6, 



PSR 



RETURN 



SAVE R4 

ElIaR COUN? V?Usi Si?^A^RY FLAG 

SETUP ASCII ZERO IN R3 

CHECK BIT 15 OF DESIRED NUMBER 

BRANCH IF NOT SET 

CHANGE TO ASCIIONE 

ROTATE INTO RIGHTMOST BIT 

TO PREPARE FOR LOOP 

STORE CARRY 

WAIT FOR TTY READY 

OUTPUT ASCII 
COUNT CHARACTERS OU"^PUT 
CHECK FOR DONE 
BRANCH IF NOT DONE 
RESTORE REGISTER 3 
RESTORE REGISTER 4 
RETURN 
CLEAR CARRY 
TEST CARRY FLAG 
BRANCH IF NOT SET 
CLEAR FLAG 
SET CARRY 

ROTATE NEXT 3 BITS INTO RIGHTMOST 3 



STORE CARRY 

MOVE DATA FOR OUTPUT 

CLEAR ALL BUT RIGHTMOST 3 BITS 

SET TO ASCII EQUIVALENT 

LOOP 

EACH TEST 2 TIMES 
TEST SR FOR SCOPE 
YES, SCOPE 

NO- TEST FOR ITERATION 

INHIBIT ITERATION 

CHECK FOR ITERATIONS COMPLETE 

EXIT-DONE 

INCREMENT COUNT 

REPOSITION STACK POINTER 

RESTORE PROCESSOR STATUS 

RETURN TO RERUN TEST 

CLEAR COUNTER 

SAVE SCOPE RETURN POINTER 

RETURN INLINE-NEXT TEST 

MAX NUMBER OF ITERATIONS 

COUNT LOCATION FOR ITERATION LOOP 

ADDRESS OF LAST TEST 



000177 166660 
000042 

000034 



;MOV ADDRESS OF MESSAGE TO REGISTER 2 
[THEN JSR y.7, TOUT 

tOUT: BICB §177. QTCSR 

MOVB 3X2, L.EOMK 
L.INC: INC y.2 

L.TOUT: CMPB a'/.2, L.EOMK 



CLEAR INT FLAG 
MOVE IN EDM MARKER 
MOVE DATA POINTER TO NEXT BYTE 
COMPARE FOR EOM 



D-11-02CW-B CflUF 0OCL»1flTI0N 
aZCffiB.Pll 



B04 
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203S 



2036 
203S 

2DS1 
20S2 
20H3 
2CW 
2QM5 
20% 
2047 
2046 
20H9 
2050 



2QSS 

aobi 

20b2 
20b3 
20b4 
20b5 
20bb 
20b7 

20be 

2069 
2070 
2071 
2072 
2073 
2074 
2075 
207t 
2077 
2078 
207S 
2080 

2oei 

2062 
2063 
2064 
2065 
208(3 
2007 

2cee 



8 



OlflP 

m 

012170 
Q1217M 
012176 
012202 
012204 



121227 




OGOIX 
000020 
lU>b22 
Iblblb 



lbbi>OH 




000000 1&S54& 




012254 

°M 

01S7S 
01230H 
012312 
012320 

or - 

01 

01_, _ 
312347 
012354 
0123b2 
012370 
01237b 
012404 
012412 
012414 
01242 
012430 
01243(> 
0124M4 
C12HS2 
012H54 
012%2 
012470 
012471, 
012504 
012507 
012S1M 



040057 
052105 

020l(^ 

0430H0 




020U 
051040 
020122 
020104 
027MM7 
040057 
047111 
050125 
04252b 
020123 
057 
053117 
0201H 



051120 



olo047 
040527 
051117 
"MHO 
524 
_ 110 
052100 
£m510 
047117 
023505 
044124 
05151b 

05U20 
040503 
040505 
051047 
052123 

04412S 
04252S 
020124 
020114 
057 
051100 
020105 
04D503 




BR 

TSTB 
BPL 

wove 

BR 

L.EOffC: 0 



.♦4 

V.7 

3x2. i-a 

>lO 
>:7.CRLF 

l.Inc 
arcsR 

(i)*, aroeR 

L.TOCT 



BRRNCH IF NOT END OF f€S5«GE 
&TURM IF EOn 
CHECK FOR CR.LF REQUEST 
BRANCH IF NOt 

OUTPUT CARRIAGE RETURN, LINEFEED 
LOOP 

WRIT FOR TTY 

OUTPUT fCXT CHARACTER 
CONTINUE 



SUBROUTIfC TO ISSUE CARRIAGE RETURN ATC LIfCFEED 



£rlf 



TSTB 
BPL 
nOVB 
TSTB 
BPL 



aTCSR 
.-4 
•215. 
STCSA 
.-4 



tstE afcift 



TSTl 
BPL 
«0V 
RTS 



;HAIT FOR TTY READY 

aTDBR ;SEND CMRIAGE RETURN 
luAIT FOR TTY 

ST08R ;SErC LirC FEED 



•O.STDBR 

Y.7 



; OUTPUT FILLER 
: RETURN 



051505 nSGl: .ASCII ;/aPRESS CW READER 'RESET' AMD UAIT FOR THE 'RESET' LIGH^ 

051505 
047101 
052111 



.ASCII ;/3THEN HIT 'CONTINUE' ON THE CONSOLE/; 



057 

042510 NSG2: 

0201?* 

044524 

047440 

020105 

0%117 

051505 nSG3: 

042122 

042504 

040505 

050117 

K0105 fISGH: 
051122 
042514 
040527 

0%505 nSGS: 

046101 

042122 



.ASCII ;/aPRESS CARD READER 'READ STOP'/; 



•ASCII ;/aTHE INTERRUPT LEVEL WAS /; 



.ASCII :/aREriOVE ALL CARDS PROH THE INPUT HOPPER ; 
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jrcpfie.Pil 



05110b 




046517 



2097 
20S8 
209S 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
210B 
210S 
2110 
2111 
2112 
2113 
2114 
2115 
211b 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
212B 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2136 
2139 
2140 
2'4l 
2H2 
•143 
21«H 



012616 
01 
01 
01 
01 
01 
01 

oi_ 

012676 
012703 
012710 
012716 
01"" 
01 
01 
0127H6 
012754 
012761 
012766 
01277M 
013002 
013010 
01^ 

013040 
0130% 
013054 
013062 
01X66 
013074 
013102 
013110 
013116 
013124 
013132 
013140 
0131% 
013154 
013162 
0l3lS 
013172 
013176 
013204 
013212 
Qi322C 
:i322b 




027S22 
042527 

ii 

042520 
041501 
061 U 



052120 
052111 
057 
020116 
054514 
020104 
47502 
14H0 



W1440 
047507 
044124 



052100 
042507 



^131 
044103 
052100 
044506 
044040 
044124 
052124 
QlllOl 

m 

051101 
047111 




042510 
052116 
050105 




053523 
057 
042510 
046522 
0%117 
020105 
046517 
0^104 




020lCn 

040505 
Ot05Q5 
m7S03 
051040 



CSilOl 
040057 
054504 
042440 
OSmHO 
04H52M 



047122 
030504 
0311CH 
942504 
040505 
0%lgl 

041100 
027531 
042522 
052040 
051122 
0M7U7 
047117 



020104 
020107 
020054 

045503 
051101 
052514 
S2101 

rei04o 

051040 
0200H0 
020104 
027504 
044120 

047111 

042515 
042510 
051117 
04H50H 
0404HO 



.ASCII :/aRESTORE CARDS IN THE INPUT HOPPER/; 



f15C7: .ASCII :/aL0UER T« OUTPUT HOPPER STACKER PRESSURE ARf* 



nSGB: 



.ASCII -.-aTHEN GENTLY DEPRESS THE HOPPER EMPTY SWITCH/; 



nSG9: 



.ASCII ;/aTHEN FIRHY HOLD THE BOTTOfI CARD TO PREVENT A CARD GCING 'HP». 



HSG13: .ASCII ;/aDECK CARD COLUMN PATTERN REACl READ2 CODED REAC ; 



HSC14 
MSG15 

nSGi7 



.ASCII :/9ALPHA /; 
.OSCII ;/aBlNARY/: 

.ASCII :/aREHEDY THE ERROR CONDITION AND PRESS 'CONTINbE'i : 



"O-il-DrCftt-B CflilF XCUnfiTIOM 

.Pll 



D04 



21SS 
91% 
21S7 
21% 
21SS 

aiso 

E153 
21SM 
2155 
2156 
2157 
2158 
2!5'3 

2i£>a 




0S21ib 

osisaa 

052116 
0400H7 

OSlg^ 

0%52S 
0H21Q1 
0421Q1 
061101 
K1122 
0SCX57 



050040 
0234M0 
0H71U 
057 
QHIU 



m 

QS0G61 
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0S2S22 
0S75O3 
0H2S2S 

0S2111 
051501 
057 
0%117 
042522 
042522 
041440 
042440 

041122 



n5G18: .ASCII ;/aBIT 8 UAS SET/; 

nSGlS: .ASCII ;/3C0LUnN REAOl REA02 CARDS ERRORS/; 



r»SG20: .ASCII ;/aCKRBRD/: 
.EVEN 



•c-ii-crcnB-B c'liF oocj^^ion 
orcnBB.Pii 



E04 



be 



71 




8 



0134M2 
013MHM 

Si^ 

013H52 
01345H 

013%2 
013M6M 

01347H 
013471} 
013SOC 
013S02 
0135IW 
OIL 

Ci3S12 
2:351M 



IS 

OOHOGb 
000217 



IC 

OOSHOO 
000101 

000102 
002100 
000103 
002040 
000104 
002020 
OOOIOS 
.110 
llOb 
002004 
000127 
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;DATrt TABLES FOR DATA RELIABILITY TESTS 
ALPHANlffCRIC DECK DATA TABLE 



THE SECOHD VALUE IS THE ENCODED FORH OF 
ALPCD: 4gg0 



THAT DATA 
COLUMN CHAR HOLLERITH 
12 



1 
2 
3 
4 
5 
b 
7 

8 

9 

10 

11 

12 

13 

14 

15 

lb 

17 

18 

19 

20 

21 

22 

23 

24 



& 

A 
S 
C 
D 
E 
F 
G 
H 
I 

CENT 



( 

4 

1 

J 
K 
L 
f1 
N 
C 
P 



12 1 
12 2 
12 3 
12 4 
12 5 
12 b 
12 7 
12 8 
12 9 
12 8 2 
12 B 3 
12 8 4 
12 8 5 
12 8 b 
12 8 7 
11 

11 1 
11 2 
11 3 
11 4 
11 5 
11 b 
11 7 
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11 m m> 







0136bH 

oir 



JIHOO 
ODGOHl 
001200 

8011^ 
43 




001020 
000045 
001010 

88l8oM 
000047 
OOlOffi 

ooini 

OOQObG 
001202 



0l3b3b 
013640 
0l3b42 
Ol3b44 
0l3b% 

013654 
013656 

m 

013664 
013666 
013670 
213672 
Zl3k^ 




8 



0010M2 
000054 
001022 
000055 
001012 
000056 

000057 



1 1 1 1 1 1 



mill 



000400 
QOOOOl 
Q0020G 
000002 
OOCICC 
0OQOC3 



2002 

110 

2001 

120 

2202 

112 

2102 

114 
2022 

116 

200b 

117 

1000 

40 

1400 

41 

1200 
42 

1100 

43 

1040 

44 

1020 

45 

1010 

46 

1004 

47 

1002 

50 

1001 

60 

1202 

52 

1102 

53 

iG"2 

54 

1022 

55 

1012 

56 

1006 

57 

0000 

0 

0400 

1 

0200 
2 

0100 
3 
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y 


1 1 e 


;cB 


K 








110 3 


• CD 


1 


I 1 B 3 

II D d 




w 


11 Q U 
11 D 1 


;dU 


) 


t 1 e C 

11 0 a 


; •31 


s 


USD 




OLHTIK 


It 07 

1 1 0 i' 


; Jd 




u 






n 1 
u 1 


; da 


c 

3 


u c 


;db 


T 

1 


p 3 

L d 


»d/ 


1 1 

u 


n u 


t do 


V 


n c 

U 3 


. 3a 

;d3 


rj 
H 


n L. 
U b 


. un 


y 


U r 


. u 1 

:4i 


V 

T 


n 0 
U a 


• us 






;4d 




POD 

(j a c 


• uu 
J 1*1 


t 


n Q 3 

U 0 J 


. uc 


V 


0 0 4 
u 0 ~ 


; TO 




J 0 3 


• 




n Q c 
J D 0 


:4B 


7 


2 B 7 


:4q 




BLANK 


:50 


1 


# 


:51 


2 


2 


:52 


3 


3 



G04 
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2273 
P27M 
2275 
227b 
2277 

227S 
2280 
2261 
22J 

2r 

2284 
2285 
229b 
2287 
2288 
228S 
22S0 
22<31 
22S2 
22S3 
2294 
22S5 
22% 
229^ 
22% 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
230b 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
231b 
2317 
2319 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
232b 
2227 
:";3c 




013b7b 

m 

013704 

Q1371 
01371 

013714 

01371b 

013722 
013724 
013726 
013730 
U13732 

mL 

013740 
013742 
013744 
0137% 
01 
01. 
013754 
013756 
013760 
Ol37b2 
0137b4 
Ol37b6 
013770 
013772 
013774 
01377b 
014000 
014002 
014004 
01400b 
014Q1Q 
014012 
014014 
01401b 
014020 
014022 
014024 
014026 
014030 
014032 
01 
01 
01 
014042 
014044 
0140% 
014050 

:iH0S2 
::4C54 



000040 



000007 
00000c 

m? 

000020 
000202 
000012 
000102 

m\ 

000014 



)15 
000012 
OOQOlb 

000017 
004000 
000200 
004400 
000201 
004200 
000202 
004100 
000203 
004040 
000204 
004020 
000205 

woig 

00020b 
004004 
000207 
004002 
000210 
004001 
000220 
O0'-<202 
00Q212 
004102 
000213 
0O4O42 
000214 
004022 

00021b 

00400b 
000217 



0040 
4 

0020 
5 

0010 

b 

0004 
7 

0002 
10 

0001 
20 

0202 
12 

0102 
13 

0042 
14 

0022 
15 

0012 
lb 

000b 
17 

4GCiQ 
200 
4400 
201 
4200 
202 
4100 
203 
4040 
204 
4020 
205 
4010 
20b 
4004 
207 
4002 
210 
4001 
220 
4202 
212 
4102 
213 
4042 
214 
4022 
215 
4012 
21b 
400b 
fti.PEND: 217 



53 
54 
55 
5b 
57 
58 
59 
bO 
bl 
b2 
b3 
b4 
b5 
bb 
b7 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



4 

5 
6 
7 
B 



I 



& 

A 
8 

C 
0 
E 

r 

G 
H 

I 

CENT 

< 

♦ 

1 



4 
5 
6 
7 
8 
9 

8 2 
8 3 
8 4 
8 5 
8 b 
8 7 
12 

12 1 
12 2 
12 3 
12 4 
12 5 
12 b 
12 7 
12 8 
12 <3 
12 8 2 
12 8 3 
12 8 4 
12 8 5 
12 8 6 
12 8 7 
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2330 
2331 
2332 



2335 
2336 

2337 

2338 

2339 

23H0 

23M1 

23S2 

23H3 

P3**M 

23W5 

23% 

23S7 

2348 

2349 

23S0 

2351 

2352 

2353 

2354 

2355 

23Sfc 

2357 

2358 

2359 

?Jf)0 

?3f)l 

cJhS 

£3b3 

2364 

23b5 

23fat 

2367 

2366 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

237b 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

-39^ 



014056 
014060 

014064 

014066 

014070 

014072 

01407M 

014076 

014100 

014lS 

0141CN 

014106 

014110 

014112 

014114 

014116 

0141$ 

Ol4lS 

014124 

014126 

014130 

014132 

014134 

014136 

014140 

014142 

014144 

0141% 

014150 

014152 

014154 

014156 

014160 

014162 

014164 

014166 

014170 

014172 

014174 

014176 

014200 

014202 

014204 

014206 

014210 

014212 

014214 

014216 

014220 

014222 

014224 

CI 4226 

:i423C 



002577 
000137 

":7c- 



SINCD: 



005777 
000277 
006777 
000337 



003777 
000177 
005777 
00C277 
007737 
000377 
007757 
00(077 
007767 
000377 
003773 
000177 
006775 
000327 
007776 
000357 
002001 
000120 
003002 
000150 
004404 
000207 
004210 
000206 
002120 
000107 
002040 
000104 
004120 
000207 
004210 
000206 
002404 
000107 
003002 
0 00150 
007777 
000377 
000000 
000000 
006000 
000300 
X3001 
300 16C 



2577 

137 

7252 

356 

5777 

277 

6777 

337 

^0 

3777 

177 

5777 

277 

7737 

377 

7757 

377 

7767 

377 

3773 

177 

6775 

327 

7776 

357 

2001 

120 

3002 

150 

4M04 

207 

4210 

206 

2120 

107 

2040 

104 

4120 

207 

4210 

206 

2404 

107 

3002 

150 

7777 

377 

0000 

0 

6000 
300 
3001 
IbC 



1 
2 
3 
4 
5 
6 

/ 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



CfiRD COLUMN 



104 
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ZZZUBB.PH 



238S 
238b 
2387 



23S0 
23S1 
23S2 
23S3 
23S4 
23<95 
23% 
2397 
23<9e 

2m 

24X 
2401 
2402 
2403 
2404 
2405 
240b 
2407 
2406 
240S 
2410 
2411 
2412 
2413 
2414 
2415 
241b 
2417 
2418 
2419 

Si? 

2422 
2423 
24g 

l42b 
2427 
2428 

2430 
2431 

2433 
2434 
2435 
243b 
2437 
2438 
3439 
2440 



014232 
014234 
014.'^ 
014, 
QIH 
0142S4 
0142% 
014250 
01H2S2 
01S2SM 
0142Sb 
0142b0 
01H2b2 
114264 
CIH2bb 
0:4270 
01 ??72 
0142VH 
01427b 

014: 

014: 
014 

01430b 
014310 
014312 
014314 
01431b 
014320 
014322 
014324 
01432b 
014 ^ 
014 
014: 
01433b 

im 

C14344 
0.43% 




004402 
000211 
i204 
"17 
110 
000107 
0Q20b0 
000105 
004060 
000205 
004110 
000207 
002204 
000107 
0Q2H02 
000111 
005001 
0002bO 
007777 
77 




000000 
000577 
00003 7 
007252 
000356 
000777 
000037 
001000 




002477 

000077 
a0b537 




014:';^ 

01435b 
0143b0 

014: 

014 
014 

014372 
01437M 
Ql437b 
014400 
OlSHK 
014M0H 
01440b 
214410 



0027b7 
000137 
5773 




4402 

211 

4204 

207 

2110 

107 

20b0 

105 

40bC 

205 

4110 

207 

2204 

107 

2402 

111 

5001 

2b0 

7777 

377 

7777 

377 

0000 

0 

0577 

037 

7252 

35b 

0777 

37 

1000 

bSoo 

300 

2477 

137 

1777 

77 

b537 



000250 
002404 

000137 



_ 57 
277 
Z7b7 
137 
5773 
277 
2775 
127 
577b 
2S7 
200 1 
120 
5002 
250 
2404 
107 



28 
29 
30 
31 
32 
33 
34 
35 
3b 
37 
38 
39 
40 
41 
42 

43 
44 

45 
4b 

47 

48 
49 
50 
51 
52 
S3 
54 

55 
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15: 




m 8 



014M12 

mms 

14M 

ISMi 

14M 
014M2H 
014Ma 
01HH30 
014M32 
01HH3H 
01HH3b 
01H4MQ 

14HMM 
0144% 
014450 
014452 
014454 
014456 
014460 

o}447Q 
014472 
014474 
01447b 
014500 
014502 
014504 
01450b 
014510 
014512 
014514 
01451b 
014520 
014522 
014524 
01452b 
0145X 
01 
1 
1 

014540 
014542 
014544 

im 

014552 
014554 




000244 
002120 
000107 
005210 
0002% 




J150 
007777 
000377 
OOOQOO 



1 1 1 1 1 1 



000211 
004204 
C00207 
0^110 
000107 
002080 
00G105 
Q040b0 
000205 
004110 
000207 
002204 
000107 



111 
005001 
00 02b0 
007777 




000377 
002525 
000127 




57777 
000377 



014556 007777 
2m5b0 000377 
2145t2 007777 



5210 



;nARK SENSE CARD TABLE 

flPKCD: 7777 
377 
7777 
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5b 
57 
58 
5S 
bO 
bl 
b2 
b3 
b4 
bS 
bb 
b7 

bB 
bS 
70 
71 
72 
73 
74 
75 
7b 
77 
7fl 
7S 
80 
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JIO 
2S11 
SS12 
2S13 

asm 

2515 
251b 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2S2M 
2525 
252b 
2527 
2528 
252S 
2530 
2531 
2532 
2533 
2534 
2S35 
2S3b 
2S37 
2S38 
2539 
2540 
2541 
2542 
2543 
2544 
£545 
254b 
2547 
2C4e 
254S 
2550 
2551 
2£52 



014564 
0145bb 
C14570 
Q14S72 
014574 
014S7b 

14b04 
014b0b 
01%10 

14612 

i4bao 

014622 
014b24 
Ol4b2b 
0146X 

014636 
14640 
.14642 
01%44 
01%% 
014650 
01 
01 
01 
014660 
01%62 
014664 

Si%% 

01%72 
01%74 
01%7b 
0147M 
014702 
014704 
014706 
014710 
014712 
014714 
014716 
014720 
014722 
014 
014 
0147 _ 
014732 
014734 
014736 
014740 
314742 



000377 
004000 
000200 
002000 
000100 
001000 

000001 
000200 
000002 
OQOlOO 

000004 
000020 
00GQQ5 
000010 




00 0020 
003777 
000177 

"777 





177 
007677 
000377 
007737 
000377 
007757 
000377 
007767 
000377 



007775 
000367 
007776 
000357 




002525 
000127 
005252 
000256 
002525 



377 

4000 

200 

2000 

100 

1000 

40 

400 

1 

200 
2 

100 
3 

40 
4 

20 

5 

10 

6 

4 

7 

2 

10 

1 

20 

3777 

177 

5777 

277 

6777 

337 

7377 

377 

7577 

377 

7677 

377 

7737 

377 

7757 

377 

7767 

377 

7773 

377 

7775 

367 

7776 

357 

5252 

256 

2525 

127 

5252 

256 

2525 



K04 
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2SS5 

Hi^ 

2S5e 

3SSH 
25b0 

2S&2 
aSE>3 
2S8M 
2Sb5 
PSb£i 
^Sb7 

ssu 

2Sb9 

2S70 
2S71 
2S72 
2S73 
?S7M 
irSTS 
2576 
2577 



2S8Q 
2Sfil 
2582 

2S83 
2S8M 
2585 
258b 
2587 
2588 
2589 
2S90 
2591 
2S« 
2593 
259M 
2595 
25 

2598 
2599 
2b00 
2S01 
2&02 
2t)03 

2bCS 
2S0& 

2fc07 





1^ 8 



^ 8 



500H 
0150Gb 
015010 
015012 
015Q1H 

8i 

01 

01502S 
1 
1 

015032 
01S03H 
01503b 
015040 
015042 
0|^ 

015052 
015054 

or 

01 
01 
0150b4 
0150bb 
015070 
1 

Ol507b 
015100 
015102 
Q151Q4 
01510b 
015II0 
015112 
015114 
01511b 
D1512C 
QlGi22 



000127 
005252 
000256 
002525 



000100 
OOlOOG 
000040 
000400 
000001 



1 1 tr^i i 



000002 
000100 



I I I I IC 




000005 
000010 




000002 
000010 
000001 
000020 
003777 
000177 
005777 
000277 
00b777 
000337 
007377 



127 

5252 

25b 



5252 

25b 

2525 

127 

5252 

25b 

2525 

127 

5252 

25b 

2525 

127 

5252 

25b 

2525 

127 

7777 

377 

7777 

377 

4000 

200 

2000 

100 

1000 

40 

400 

1 

200 
2 

100 
3 

40 
4 

20 

5 

10 

b 

4 

7 

2 

10 

1 

20 

3777 

177 

5777 

277 

6777 

337 

7377 





DlSlbS 
OlSlbM 
015166 
015170 
015172 
01S17H 
015176 
015200 
015202 

;iiS! 

015210 
015212 
015214 
015216 
015220 
015222 
015224 
015226 
015230 
015232 
015234 
015236 
015240 
015242 
015?H 
0152% 
015250 
015252 
015254 
015256 
015260 



000367 
007776 
000357 
005252 
000256 
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377 
7577 
377 
7677 
377 
7737 
377 
7757 
377 
7767 
377 
7773 
377 
7775 
367 
7776 
357 
5252 
256 
2525 
127 
5252 
256 
2525 
127 
5252 
256 
2525 
127 
5252 
256 
2525 
127 
5252 
256 
2525 
127 
5252 
256 
2525 
127 
5252 
256 
2525 
127 
0 
0 



Ji27 
00S2S2 
000256 
002525 



000256 
002525 
000127 
00525 2 
000256 
002525 
000127 
005252 
0002 56 
002525 
00012/ 
005252 
000256 
00252^ 
000127 
005252 
000256 
002525 
000127 
000000 
000000 



MRKEND: 



M04 
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;END MARK SENSE DIflG ^flBLE 



NOM 



lO-U-D2Cf1B-B CflilF 0OCUHATION <80 COLUMN) CftRO READER HflCYll 27(732) 08-SEP-7b 09:02 PAGE 52 
02CMB8.P11 




2bbH 
2Sb5 
2&b& 
2fc67 
2bb8 
2&b9 
2b70 
2b71 
2872 
21.73 
2S74 

Sts 

2678 

2677 
2678 
267<j 
2b80 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
3688 
2689 
2690 
2691 
2692 
2692 
269M 




015262 
015270 
015276 
0153OH 

015322 

0153% 
0153M2 
0153H4 
015352 
0153SM 
015360 

015372 
015400 

i]^ 

015416 
015422 
015424 
015432 
015434 
015436 
015440 
015442 
015444 
0154% 
015450 
015452 
015454 



Q12767 
012767 
012767 
012767 

100373 



7 

001001 
000207 
062767 
000754 
005767 
^1010 

Kl454 
016767 
000406 

mi 

105777 
100375 
016777 
000207 
000000 
000000 
000040 
015444 
023420 
001750 
000144 
000012 
000301 

000001 



177773 000146 

015444 000144 

0 00040 000134 

177777 000122 
0Q0116 
000120 

000076 

000002 

000054 

177777 

000042 

000060 
000060 
161374 



000070 

000046 
000034 

000030 
000016 



000004 163366 



rPRINT OECIMftL 


uECPR- 

VbWi • 


nov 




nov 




nov 


TYPTl: 


riov 


TYPT2: 


INC 




SUB 




BPL 




ADD 
JSR 




INC 




BNE 




RTS 


TYPT3: 


ADD 




BR 


DECOUT: 


TST 




BNE 




CHP 




SEQ 




MOV 




BR 


DECl* 


NOV 


BIS 


0EC2: 


TSTB 




BPL 




MOV 




RTS 


DIGIT: 


0 


DIGCNT: 


0 


ZERO: 


40 


DECPNT: 


.♦2 




10000. 




1000. 




100. 




10. 




1. 




.END 



VALL>E IN R2 

•oltK^+SlDECPNT 
t40,ZER0 

•-i!digit 

DlGtT , ^ 
aDECPNT,y.2 
TYPT2 

»f 

Dl6CNT 

TYPT3 

y.7 

•2,DECPNT 
TYPTI 
DIGIT 
DECl 

•-l,DIGCN"r 
DECl 

ZERO, DIGIT 
DEC2 

•60, ZERO, 
•bOlDIGIT 
aTC^R 
.-4 

DIGIT, STDBR 
•/7 



B05 



fIftCYll 27(732 ) 0e-SEP-7b 0S:02 »M£ 5M 



=-.xcooo 



flLPCC 

MLPPC 

flLPl 

ALUAIT 

BEGIN 

acj. 
sirco 

a.CK 

CPRDin 

ca?fr 

ScfilTB 

CKca 

CKCRD 

CKDorc 

CXFAIL 

cmt 

:kloop 

:iaj»i 

CKLP2 

cxroc 

CXSflfC 

CKSIT 

CKSITl 

CKM 

CK5 

CKS 

aCNT 

:lrtr 

CNT23fi 
:flT23B 
CNT2X 
:J<T23D 
ChT23E 
Cm23F 
CNT23C 
CNT2S« 
CNT2Sfi 
COffTD 
CONTIO 
CONTll 
C0NT2 
:0NT21 



X7140 
M711b 
007210 
013356 
014054 



:0NT22 



001150 
011420 
014056 
014554 

011034 
011020 
011256 

010734 
010754 
011060 
01115C 
010676 
0110O4 
011010 
001556 
001722 
002S3H 
007104 
011372 
005332 
005350 
00537C 
005406 
005426 
005446 
005472 
005540 
005570 
006024 
00<?702 
003020 
001414 

;i( 



001576 
002422 
COUNT s".OOOOQl 



5331 

1100 

1494# 
1480 

135: 

1497 
1285 
1266 
1280 
1499 
556 
1251 
1281 
1282 

1^» 

'nr 

1796 
1800 
1855 
1827 
1833 
17921 
17971 
18231 
1835 
568 
1794 
18091 
717 
758 
948 
1316* 
623 
1161 
1168 
1175 
1182 
1189 
11% 
1204 
1224 
1232 
1278 
976 
1005 
673 
1123 
1145 
727 
9161 
£34 i 
753* 

9H2# 



594» 
1047» 
1104* 
1500* 
14631 
1373 
1500t 
21691 
23261 
128SI 
15091 

6061 
1437 

23311 
24901 

18161 
18121 
18581 
1829 
18541 
1306 
1802 
1824 
1839S 
17851 
1804 
1810 
722 
77U 
9511 
1390 
655 
11641 
11711 
11781 
11851 
11921 
11991 
12061 
12271 
12361 
1284 
9881 
1011 
6771 
11271 
11481 
7311 
925 
624* 
763 
943* 



966* 
1049* 
1113* 
1504 



1556 
1476 



1826 
1349 



1859 
16311 

1811 
1830 



16061 
7241 



1414 
891 



1230 

12861 

10151 



625* 
765* 
945* 



968* 

1055 

1115* 

1512* 



1520 



1828 



1813 



1455* 
936 



W?' 

994* 



973 
1057* 
1121 
1517 



1434 14781 1547 



16631 

ii 



966* 

1073* 
1128* 
1555* 



995* 997* 1002 
1084* 1085* 1066* 
1133* 1135* 1141* 



1087* 
1144 





1C31# 



1549 1751 



1808 19031 



1417 1454* 14701 
1352 1374 1542 



19231 1931 



1815 1821 1857 1860 



14711 1545 
16%1 



1792* 1612 1617* 1640 



m ^ ^' ^: ^! 

1013* 1118* 1119* 1324* 1325* 1677* 1678* 



719* 
915* 
166C* 



73S» 
92H* 

:h3c* 
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COS 



fWCYll 27(732) 08-SEP-7b 09:02 PftCE 55 



vRBl =■'^000004 



:rb2 

CRlF 



:r5 



X102(> 
012206 



0DC3 



C.COMT 
C.UAIT 
D«TE!C 
»TST 
»TST1 
WTST2 
WTST3 
»T1 
»T2 
»RCK8 
XNTl 
3ECK 
3ECKCK 
jECOUT 
DECPHT 
JtCPR 
)EC1 
3EC2 
OELflY 
JICCNT 
DIGIT 
DL«YO 
)L«Y1 
»€3 
D0fC7 



012004 
0117S0 
007112 
005672 
Q057U2 
005706 




r I 



D.2 
EfC 
ErCCK 
Ef€2H 

EPcmi 

EOF.: 



00677H 
01535M 

^ 

oil 

015416 
01127M 
015M36 
015434 
011340 
0il342 
001502 

OliS^ 
0I211Q 
011476 
005622 
005602 
307 -•7H 



'f; 

ll73t 1180 1317 



5811 

157D 
1620 
1670 
1747 

»; 

731 
789 
840* 
881 



1024* 
1088* 
1164 
1211 

i3U 
1494 

1531* 
1689 
1809 
1992 
19B7I 
1323* 
1250 
12711 
1270 
1274 
1317* 
1327* 
8% 
1289 
1277* 
1440 
2666 

!5ir 

2673 
2677 
560 
2658* 
2661* 
1869* 
1872* 
693 
849 
2011 
2013 
1907 
1234 
1226 
562 
5661 



10«* 

1167 

1219* 

i^^ 

1532 
1692 
1818 
19%l 
1988 
1335 
12691 
1449 
12721 
12791 
1329 
1332 
9141 
12%l 
1283* 
14451 
26721 



1391 
2675 
26801 
I867t 
2667* 
2662* 
1871* 
1873* 
7001 
857 
20171 
2015 
19181 
1236 
12401 
15591 
1272* 



i3i: 

^920 

1701 
1956 



6« 
743* 
799 
844 
892* 

iS^ 

10% 

1171 

1220 

1318 

1495* 

1575 

1724 

1858 

2008 
1407 



1398 
1401 



1287* 
1482 

2665 
1641 
26781 



2674 
2672 
1875* 
18801 

860 1 

20201 

1243 
12H1 

1379 



1979* 



1187* 



1702 
2037 
640* 
694 
744 
804 
848 
893 
97H# 
1041* 
1106 
1174 
1222* 
1346 
14% 
1578 
1726* 
1870* 



14741 



14721 
1473t 



1384 
1536 

2670* 
E58t 



26851 
2676* 
I879t 



124B« 

1381* 



1816* 1826 
1825* 1828 



1467t 
1553 

26871 



26^9* 2682 




647 

712* 

757 

810 

864* 

901* 

1122* 

1185 

1229 

1368 

1509* 

1610 

1737 

1890 



1843 
1846 



26841 



2004* 
1323 

m 

1720 

759 
813 
865 
902 
987* 
1069 
1126* 
1188 
1231 
1412 
1510 
1637 
1793 
1923 



916 



nil 

1721 

657 
716 
767 
815 
868 
937* 
999* 
1072* 
1137*^ 
1192 
1237 
1432 
1513* 
1640 
1795* 



941 

1722 

771 
817# 
870 
938 

iQQP 

1CM4* 

WT 

1240 

1452* 

1515 

1643 

1797 



1012 1159* ilbfc* 



1744 

677* 

721 

781 

818 

874« 

940* 

\m 

1242 

1453* 

1522 

1673 

1799 



1( 
1745 

678 
724 
794* 
823 
875 
947 
1006* 
1086* 
1157 
1203 
1303* 
1460 
1525 
1676* 
1801 



:b:=5 

1669 
i7-b 

b&b* 
729 
785 
B27 
879 
951 
1008 
1087* 

1160 

1208 

1308 

H83* 

1528 

1686 

19C3 



1791* 1854 



1836* 



t:-::-;:::i8-8 cniir oocunfiTion <bo cxunN> cfiRO REftOCR 
:::f«e.Pii cross reference table — user svreoLS 



005 

nftCYll 27(732) 08-SEP-7b OS: 02 PftGE 5b 



ERR6 
ERSET 

Si, 



00211H 
00b30C 




FPRINT OObHSb 

rrgsT 



INTFLG 

INTVC 

ITCNT 

ITflftX 

KCRBl 

KCRS 

LflCNT = 

LPSTCO 

LftSTCK 

.ftSTUT 

LOGIC 

LOGICA 

LOOPll 

L00P3 

LOOPM 

LOOPHB 

LOOPS 

LOOPt) 

LOOP? 

LOOPS 

L.Eonc 

L.IfC 
L.TOUT 

r«KCO 
nnccro 

nsciH 
nSGis 
ns(ii7 
nscis 



nsc3 



001012 

ooiois 
ai2i2s 

012122 
OOlOSS 
001022 

QOb7bO 
OObbSb 
OObbTM 
Qll%£> 
OOSfeSO 
00274M 
00145H 
00152S 
0015M2 
OOlbSM 
002012 
00214M 

002330 
01220H 
012142 
0121HH 
014S5b 
0152b0 

0I31S4 
0131b5 
01317b 
0l32bl 
013X1 
012J*7 
OIW* 
CI2M14 
C12^4 
:i25C7 



807 

1312 

13S9I 

1330 

13b7 

13b2 



S18 
lObH 
117b 
1%M 
1580 
1814 

710 
1068 

57bt 
17b3t 
5«31* 
5801 
57Si 
14231 
1436a 
1322 
1418 
19141 
553 
9981 
b89 
7131 
719i 
7551 
799f 
8421 
8931 
2030* 
20311 
20321 
1275 
127b 
1581 
1382 
1287 
1283 
1928 
192b 
1837 

11^ 

ISbb 

lOMl 
1595 



827t 
13441 

1333 

13711 

13791 

i; 



922 
1071 

IbOb 

If 



1087 

594 
17b7# 
15b4« 
593 
592 
1424» 

1348 
14211 

12%I 

1014 
b92t 

715 
723 
7b4 
803 
843 
911 
2032 
2038 
2042 
2494i 
2b55t 

21271 

213bl 

2l38t 

21401 

21491 

21521 

1583 

21581 

1711 

1084 

IbbO 



133b 13571 



1088 

1041* 

2014 
I7b4» 



142b» 
1370 



b95 

720 

770 
853 
20431 



lb% 



1597 

20751 

1085 

208bi 



b49 


b59 


b74 


74b 
84© 


7b 1 


7b9 


955 


957 


975 


1094 


1085 


106b 


1197 




1213 


1446 


liob 


1518 


ibI2 


lb39 


lb42 


839 


890 


935 


1091 


1112 


1132 


10S9 


lObl 


107b 


201b» 


2020* 


20241 


1918ft 


2014 


23231 


1428# 


1430ft 




14171 


14b3 


14b5 



Ibbb 



ibi7 

108b 



%5 

1155 



72b 
1010 



993 
1218 



102C 
12% 



1041 
15b5 



1731 

10% 
15«W 



730 

1^ 

1026 
llb2 
141b 
1546 
1739 



733 



)li 
1041 



1147 llb2 IIM 
1541 isiS 15^ 



1064 
lb27 



15? 
1805 

1065 
lb59 



1078« 1060 1064« 1085ft I06bft 1087* 1068* 



lb97 1717 1740 20581 



lb30 lb48 lbb2 lb99 1713 1742 



20b8i 



1087 



1068 20811 
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1695 20931 
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NOP 

NOTCO 

notSi 

NOTCOL 

•VCCRO 

OFFSET 

jFFSl 

0FFS2 

OFFb 

PC : 

PIRQ 

PRINT 

PROC 

PROCT 




007020 
007370 
U4 

94 




X1C40 
011574 
001034 
011714 



PSP = 17777b 



PSSET 

mi' 

RESTTB 

K5TRT 

RESTS 

REST9 

RETmx 

RETURN 

RSETC 

RSETD 

RSETE 

RTT 

RO 

P2 



R5 ' 

5AVPC 

SAVPSR 

5flVR2 

SAVR3 

5AyR4 

SCOHTl 

SCOPE : 



001212 

88^ 
007740 
00115b 
002450 
00255b 
010674 
01212b 
010110 
010330 
TljK30 

:'/.000002 



-/.000Q05 
011710 
011712 
011702 
011704 
01170b 
00b200 

: 104400 




1413 



SE'JP 301242 



1100* 
1344* 
1898 
bl3 

l^* 
lbl2l 
blOl 
919 
950 
17b0« 
b20« 
lb4bt 
lb95l 
17401 
5321 
599* 
53SI 
1387* 
lbl3* 
lb99» 
1906* 

1954* 
1957* 
19711 
19721 

1319 
5311 

1041 
1563 
550 
SOU 



14S9t 
1464t 
14121 
13S3 
15391 
15451 
15541 
816 



19S0I 

631 
1084 
1853 

606* 
1049 

2018* 
615 

l§ll» 

1253 
923 
952 
17bl» 
1560« 



601 

914# 
1390* 
1615« 
1711* 
1914 

.IS* 

1963 

1%5 

1976* 

1977* 

13231 

621 
1045 
1593 
20101 

608 



1375 



8231 



b69 
1085 
1959 

967# 
1050* 
1115 
1421* 

1263 
9261 

956 
176b 
1753* 



920 
1395* 
1617* 
1713* 
1926* 

ll^Sl 

19741 

19701 

1993 

1994 



1419 14511 1543 



926 


958 


18%* 




1086 


1087 


1088 


1396 


1964 


1976t 






968 


%9» 


973* 


9%* 


1051* 


1055* 


1084* 


1085* 


{ill* 




1134* 


1135 


1493* 


1494 


1501* 



1393 
1448 

9581 

1768 
1765* 



1041* 
1398* 

1928* 
916 



1399 

997 
1086* 
1136* 
1504» 



1402 1405 



998* 
1087* 
1143* 
ISl*-* 



1002* 
1088* 
1144* 
1517* 



14751 



17691 

2019 



2021* 20251 



1408 

1022* 
1093* 
1300* 
1554* 



19**4 

1023 
1094 
1301 
1555 



IB**" 

1041* 
1098* 

i32n* 
ie% 



1084* 
1401* 


1085* 1086* 
1404* 1407* 
1646* 1648* 
1740* 1742* 


1087* 
1566* 
1660* 
1837* 


1088* 
1568* 
1662* 
1840* 


1201* 
1581* 
1664* 
1843* 


1202* 
1583* 
1666* 
184b* 


1382* 
1596* 
1695* 
1849* 


1384* 
1597* 
1697* 
1852* 


1329 


1332 1335 


1337 


1339* 


1393* 


1395 


1404 


1451* 



bSl 
1084 
lb2b 


b82 

1085 
lb58 


704 
108b 
1709 


749 

1087 
1750 


793 
1088 


833 
1090 


1559 


1758 


1785 


18b7 







888 
1110 



931 
1130 



9b3 
1152 



991 
1215 



1C13 
1248 
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SET2 
SET3 
SETS 



SPftCE 
SPftCEX 
5R : 



SRVC 



00H5S2 
00H3M0 
0OH126 
?714 

10 





STPCK 

TCSR 

TD8R 

TEST 

TESTR 

TESTB 

TESTC 

TESTO 

TESTE 

TSTC 

TESTX 

TESTl 

TESTlfi 

TSTIO 

"EST 11 

"EST12 

TEST13 

^ESTIS 

TESTIS 

TESTIS 

'EST 17 

TESTIS 

"ESTIS 

TE5T2 

TEST20 

TEST21 

TEST22 

TEST23 

TEST2H 

TESTS 

TESTS 

TESTS 

'ESTb 

TEST7 

TESTS 

'EE'« 



011542 
011572 

177570 
00bl22 

ii 

QOIOOQ 
OOlQlb 
001020 
007100 
001214 
007SOb 
007b42 

oimi2 

010152 
010402 
010572 
010bl4 
001222 
001224 
002570 
002712 
003030 
003110 
003322 
003514 
003726 
004140 
004352 
OOHSbS 
001322 
00477b 
005102 
00517b 
D05304 
005E10 
001430 
001512 
001b42 
00177b 
002130 
002314 
D0aHb2 



10881 

1077 

10871 

I08bt 

13851 

lOfiSt 

bTO* 
1087 
1899* 
138b 
1S40« 
527t 
1787 
1299 
1500 
1512 
1519 
557 
5771 
5781 
127b« 
b09 
iSbO 
15931 
lb2bl 
IbSSt 
17091 
17501 
5b5 
b21l 
b20 
959 
9911 
10181 
10411 
1041 
lObO 
1084 
1085 
108b 
1087 
b44 
1088 
1110a 
11301 
11521 
llb3 
b75 
b91 
7491 
7b2 
819 
847 
900 



10801 



557* 
92bft 
1088 

1^ 

bl4 

l§St 

1^21 

559 
1903 
1905» 
1282* 

bll 
15b3l 



I758t 
2025 
b22t 
9b3t 



10451 
I0b2 
10851 
lOSbt 
10871 
1088a 
bSla 
10901 



559* 
927* 
1103 

1392 
19441 
1249 
1854 



5bl 
1908 
1910* 
128b* 

b20i 
1753 



10b8 



1170 


1177 


b82l 




b97 


b99 


77b 


7931 


822 


824 


859 


8b3 


905 


913 



5bl* 
958* 

1125 


5b4« 
953* 
1288* 


5b7« 

ill?* 


b04 

i?§4* 


blO* 

1029 
143b 


bll* 


bib* 

ii?! 


631* 

i§S 


b32« 


bb9# 

iiH* 


1397 


1400 


1403 


140b 


1842 


1845 


1848 


1851 


19371 


1941 


1273 
18b9 


1279 
1950 


1292 
l%b 


13bC 
2010 


:3b3 

2012 


1438 


1446 


1479 


1550 


l7bC 


5b4 
1911 
1939* 
1337 


5b7 
1937 
19b2* 
14b9l 


5731 
1%0 
1989* 


1987 
2041* 


202S* 
2048* 


2039 
2051* 


20% 
2054* 


20H9 
2682* 


2C52 


2b3: 



1754 



1079 1081 



1184 
701 



82b 
873 
927 



10641 



1191 
7041 



830 
878 
9311 



1198 



8331 
882 



120b 1212 



8881 



12151 



1D-il-DZCf18-B CnilF 
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IftSM 
NTIO 
NTl 
MTl 
NTl 
INT14 
INT15 
NTlb 
NT17 
'INT18 
TINT19 
TINT20 
"NINT 

'CTERR 



TRET 

TRFLC 

TRTfWP 

TSTflRT 

T3T1B 

TSTSfl 

TYPTl 

TYPT2 

TYPT3 

T2INT 

T2INTfl 

UAITg 

XLOOP 

ZERO 



005574 




J72 
00322(> 
003440 
0Q3b32 




44* 
004702 
OOSOSb 
OOSlbO 
011270 
011286 
012130 



X1122 

8Sio£ 

00707b 
0012b4 
001402 
015304 
015312 
015344 
005242 
005266 
002522 
010664 
015440 
015456 
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1226 



1021 
10411 
1047 
10841 
lOBSi 
10861 
lM7t 
10881 
10S2 
1113 
178S* 
17S0* 
1041 
15% 
16S8 
5S7 
5931 
545 
1275* 
632 
670 
26611 
26621 
2668 
1133 
1141 
9471 
1765 
2660« 
543 
642 
738 
811 
894 

985 
1097 

1221 
1423 
1523 
1674 
1987 
2C3b 



12371 
977 1 
10061 
10281 

10691 



11021 
11241 
1796* 
1831* 
1084 
1614 
1700 
6031 

1281« 
6341 
6721 
2671 
2664 
26701 
11401 
11461 

17671 
2676 
5441 
648 

741 
814 
898 

1001 
1101 
1238 
1425 
1526 
1679 
1891 
2040 



1849 
1852 
1085 
1616 
i7l2 

6^1* 
128S* 
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18621 
18611 

1086 
1618 
1714 



1339 



1087 


1088 


1383 


1385 


1567 


1569 


1582 


1584 


1629 


1631 


1647 


1649 


1661 


1663 


1665 


1667 


1716 


1718 


1741 


1743 


1838 


1927 


1929 


2Q29t 


1290 


1445* 














1451 


14681 















'Cat 
1696 



2678* 


26661 




5471 


5521 


5561 


656 


662 


664 


745 


756 


760 


828 


845 


651 


903 


909 


917 
1027 
1139 


1009 


1026 


1107 


1120 


1305 


1309 


1314 


1427 


1429 


1431 


1529 


1533 


1546 


1661 


1683 


1665 


1904 
2047 


1909 


1912 


2050 


2053 



563t 


572i 


5741 

679 


602 


626 


629 


630 


636 
'37 


666 


668 


725 


'29 


732 
790 


735 


768 


772 


778 


782 


786 


800 


805 


855 


861 


866 


869 


871 


876 


880 


984 


921 


939 


944 


946 


954 


972 


978 


982 


1041 


1054 


1070 


1084 


1085 


1086 


1087 


1 068 


1158 


llf-5 


1172 


1179 


1186 


1193 


1200 


1209 


1326 


1338 


1347 


1350 


1361 


1364 


1372 


1415 


1433 


1439 


1447 


1468 


1491 


15C7 


1511 


1516 


1576 


1579 


1605 


1608 
17?5 


1611 
1729 
1967 


1638 
1730 
1982 


16^*1 

r39 

1998 




1687 


1690 


1693 


1819 
2Cj3 


1924 


1938 


1951 


19,1 


21601 


=>69i 


2687 













HQS 
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:3MCt IQMl I08M 1085 1086 1087 1088 



las 
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AOC 
ADD 
BE^ 



ai: 
eicB 

SIS 



Bfll 
Bf€ 



BPL 



9P 



• r 



ClRE 
CMP 



CMPB 

w»>M 

DEC 

EM' 

rtftL' 



1986 

1761 



S17 
12X 

h 

%9 
1899 
2029 
640 
1114 
614 
7S5 
879 

1! 
ii 

729 
1497 
615 
725 
1014 
133b 
1523 
1800 



ii: 

896 

1168 
1291 
2015 
602 

iVii 

1170 
1519 
2b77 
19% 



1(^ 

1872 
817 
604 

K 



2014 
:332 
1252 
734 
530 
545 



2004 
2665 
i4c 



921 
1241 
1526 

998 
2006 

677 

757 
881 
|»7 

i! 
8b6 
1579 
626 
732 
1041 
1347 
15% 
1804 

982 

1172 

2842 
609 



n 

1177 
1806 



5% 

1006 

iiii 

1888 
974 
641 

m 

2017 
2035 
1445 
6C2 

1365 



2670 

til 

939 



1041 



940 



1< 



771 
893 

i! 
ii 

1009 
1608 
628 
758 

1070 

13§P 
1576 
1810 

^ 

985 

1175 

644 

184? 
1184 
1811 



598 
1016 

1942 
1166 
763 
1084 
1414 
2674 



650 

1441 



51 
954 



m ills 



1050 



%7 



1 



804 
695 

1! 
ii 

1041 
1641 
6X 
807 
1084 

i% 

1824 

1001 
1179 

n 



675 



1( 
1191 
1815 



906 

I'^Bl 



972 
1274 
1540 



9% 



1 



806 
947 
1106 
1412 

1062 
1690 
662 
824 
1085 
1367 
1611 
1827 

760 
1041 
1182 



691 

1198 
1821 



924 
1552 



701 
843 
1026 

III? 



1022 
1344 
692 
808 
951 



077 
730 
664 
849 
1086 
1372 
1638 
1829 

764 
lObO 
1186 

^§ 

699 

878 
1084 

1206 

1830 



1013 
1574 



715 
BSl 
1041 



1041 
1357 
694 
815 
953 

M 

1084 
1798 
666 
882 
1087 
1380 
1644 
1833 

768 
1081 
1189 



1 

723 



U 
1226 
1857 



1325 
1569 



1054 



1084 1085 1086 1087 



1048 

1: 



818 
971 
1231 
1446 

i^^ 

1085 

668 
8% 
1088 

1679 
1835 

800 
1084 
1193 
1909 

727 



1( 
1234 
IBbO 



624 


6% 

1032 


660 


686 


711 


lOX 


1041 


1056 


1058 


ii? 




m 


ii§I 


1142 
1564 


1978 


1979 


1999 


2020 




1173 


1194 


1202 






777 


781 


785 


902 


910 


1085 


1086 


1087 


m 


1103 


1417 


1436 


1508 




1535 



1424 

1603 



745 
661 
1084 

1728 


1085 
1415 
1813 


772 
876 
1086 


bbS 

1087 
1433 
1891 


8?4 
1088 
1447 
1907 


1097 

131? 


79C 
911 
1107 

m 


1088 


1098 


1136 


1300 


1452 


1514 


1788 



1051 

823 
977 
1240 
1460 

1^ 

1C66 

673 
909 
1120 
1427 
1681 
1874 

803 
1085 
11% 
1912 

737 

1236 
1877 



743 
1072 



916 
1125 
1539 



1426 
1623 



106'* 
145^) 

7j: 

82" 
1025 
1242 
1479 

1087 



689 
925 
1228 
1429 
1683 
1876 

811 
1086 
1200 
1938 

762 

l3^ 
1270 
1931 



753 
1074 



920 
114 
154 



1428 
1636 



1085 
1493 
716 
842 
1041 
1249 
1484 

m 

1088 

693 
944 
1232 
1431 
1685 
1887 

814 
1087 
1204 
1941 

770 
923 
1101 
1278 
1952 



784 
1084 



1086 

848 
1053 
1273 
1490 
1692 

1224 

695 
9% 
1293 
1439 
1687 
1924 

845 
1088 
1209 
1%1 

776 



111 
1284 
2008 



901 
1085 



980 
1146 
1812 



143G 
1654 



1007 
1329 
1826 



1823 

1672 



1087 
37 



854 
1069 
1279 
1510 
1724 



697 
948 
1326 
1461 
1693 
1992 

857 
1158 
1212 
1%7 

822 



11: 
1305 
2038 



942 
1086 



1029 
1332 
1828 



1873 
1.'05 



1088 

868 
1084 

\m 

1727 



1312 1314 



717 
952 
1330 
1491 
1738 
2011 
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1161 
1221 
1982 

826 

II4I 
1499 
2042 



987 
1087 



i«! im m {^! 



1041 

1335 
1955 



1875 

r23 



1093 

744 
875 
1085 
13G8 
1522 
1737 

1338 

722 
978 
1333 
1516 
179" 
2013 

fa84 

1165 
1239 
1988 

830 
IOCS 
1163 
1507 
2671 



«»89 
1088 



1261 
1337 
1991 



1942 
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flOVB 

fiOP 

RESET 

ROu 

RTI 

PTS 
SEC 
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5XT 
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•Ere 

.E'/EN 



1752 
1795 

boe 

993 

I2HH 
1392 
15H3 
1588 
lb27 



1710 
1751 

'H? 

bll 
958 

102M 
1092 

1401 

181b 
1910 
1969 
874 
bOO 
b34 
1984 
582 
2022 
b07 
2000 
1393 
599 
531 
bl2 
897 
1311 
19bb 
719 
1171 
1313 
1138 
521 
2058 
2158 
2b94 
21bC 



1759 

1"'% 
1495 

SbO 
1448 

b22 
10|0 

139b 
1549 
1594 



712 
758 



1031 
1094 

1404 

ill^ 

1822 
1918 
1993 
1513 
1099 
1913 
1965 
b03 

1409 

Zbb3 



13! 

1359 
1981 
740 
1174 
1318 
1304 

20b8 



522 



I7b2 
ba9 
943 

1817 

144? 
b23 
1041 
12% 
1397 
1559 
15% 

im 

1714 
1785 



1041 
1095 
I2b9 
1317 
1407 

il^ 

1826 

19?4 
2030 
1143 

2001 
bl7 

145b 



b47 
981 
1383 
1997 
7b7 
1178 
1797 



178b 



1831 
b54 



399 



71b 
808 



047 
100 



451 
bl3 
711 
837 



2041 
125b 

2002 
b33 

1893 



1379 
2b72 
799 
1181 
1813 



18Sb 
bbl 
1119 
1836 

14^1 
655 



400 



718 
838 



m 

049 

irs 

76 



494 

840 
*239 
2018 
2048 
1257 

2003 
671 

1919 



759 
1041 
14% 

810 
1185 
1903 



1868 
663 
1156 
1870 

685 



402 
9 



0 
719 
839 



ill 



1500 
1617 
1715 
1843 



.>1 
2051 

isse 



928 

1925 



1578 

%5 
1188 
1908 



1930 
bbS 
1219 
1871 

m 

710 



403 

loi 

720 
841 



960 

1943 

1607 

870 
1192 
1911 



1%8 
bb7 
131b 
1983 

m 

752 
405 



m 

721 
842 
4 



m ^ ^ 



105^ 
1115 

1502 

18% 
4 



1259 1260 



li 

1504 

i! 

1849 
»7 



129S 
1995 



789 
1084 
1640 

938 

1195 
1937 



2075 2081 2086 2093 2099 2107 



1^0 
7% 

m 

1406 
1572 
1614 

1722 
1844 

1073 
1121 

1512 

1852 



712 
1453 
2016 



839 



408 



l§8 

741 
845 

078 
128 



517 
869 



718 
1454 
2031 

890 

1^ 
1419 
1582 
1618 

1743 
1847 

601 

% 

1084 
1133 

m 

1555 

m 

18% 

kbi 



754 
1678 
2662 

891 
1132 
1386 
1437 
1584 
1619 

1744 
1848 

603 

m 

1560 

1897 
iS 



765 
1680 
2667 



935 
155 



478 



745 
850 

605 

1086 
1137 

i§l 

I56r. 

16f4 

iT'jH 
1898 

IIS 



798 
1682 



936 
218 
389 
520 



7% 
851 

606 



1021 
1087 
1141 

}! 

1568 
1666 

1765 
1905 
1977 
2682 



IbSi 



1434 

%5 
233 
391 
542 
587 
622 

1747 
1653 

610 

1068 
1144 

l! 

1581 
167fc 
17B7 
190b 
1980 



1261 


1262 


1503 


1915 


!91b 


1917 




1340 


1354 


1376 


1420 


1544 


19QC 


1%9 


2034 


2055 


2669 


2683 








M 

1689 


1729 


B44 
1087 
1801 




1854 


1889 


883 
1290 
1890 


984 

1199 
1%C 


1000 
1203 
1987 


1008 
1208 
2039 


1157 
1211 
2046 


llbO 
1220 
2049 


llbH 
1223 
2052 


llb7 
1237 
2b8C 


2115 


2127 


2136 


2138 


214C 


21H9 


2152 



K05 
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